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Abstract 


RUN  WILD  is  a  storage  and  retrieval  system  designed  for 
wildlife  habitat  information  in  Arizona  and  New  Mexico.  Pro- 
gram language  is  UNIVAC  FORTRAN  V.  The  system  contains 
programs  to  create  and  update  11  wildlife  files.  Minimal  knowl- 
edge of  computers  is  required  to  implement  the  system,  and  little 
training  is  necessary  for  the  user  to  access  the  files.  Disc  files 
which  allow  large  storage  space  and  direct  addressing  of  records 
are  used.  The  number  of  files,  file  sizes,  and  file  structures  are  set. 


The  use  of  trade,  firm,  or  corporation  names  in  this  publication 
is  for  the  information  and  convenience  of  the  reader.  Such  use 
does  not  constitute  an  official  endorsement  or  approval  by  the 
U.S.  Department  of  Agriculture  of  any  product  or  service  to  the 
exclusion  of  others  which  may  be  suitable. 
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RUN  WILD  —  For  the  UNIVAC  1100  Series 

Implementation  and  Maintenance 


Wilson  B.  Casner,  Barbara  Kulongowski, 
David  R.  Patton,  and  Sandra  J.  Pinkerton 


There  is  a  need  for  ready  access  to  wildlife 
information  that  will  not  involve  extensive  and 
repetitive  literature  searches.  The  RUN  WILD 
System,  a  set  of  programs  that  are  used  in- 
dependently to  build  11  information  files  and  a 
single  program  called  RUN  WILD  to  retrieve 
information  from  the  files,  offers  an  alternative 
which  would  allow  the  user  to  access  wildlife 
information  from  a  computer  terminal. 

This  supplement  to  General  Technical  Report 
RM-51  describes  the  RUN  WILD  System  so 
that,  with  a  minimum  knowledge  of  computers, 
the  system  can  be  implemented.  Each  program 
is  documented,  and  the  use  and  limitations  of 
each  one  is  discussed.  Each  program  and  file  is 
assigned  a  name  and  a  number,  and  is  referred 
to  by  either. 

The  paper  is  for  potential  users  with  some 
electronic  data  processing  background  and  is 
intended  to  help  them  decide  whether  the  RUN 
WILD  System  meets  their  needs  as  well  as  to 
instruct  them  in  system  implementation. 


Introductory  Information 

The  RUN  WILD  System  consists  of  four 
programs  to  create  11  wildlife  information  files 
and  a  fifth  program,  also  called  RUN  WILD, 
that  will  list  irtformation  from  these  files  ac- 
cording to  user  responses  to  the  program.  The 
programs  are  written  for  use  on  the  UNIVAC 
1100  series  computers. 

The  RUN  WILD  program  is  written  in  con- 
versational mode,  which  means  the  program 
and  user  interact  through  a  terminal  keyboard 
and  printer.  Files  are  limited  in  size  only  be- 
cause they  were  programmed  this  way.  The  use 
of  core  storage  is  minimized  by  using  mass 
(disc)  storage.  Current  limits  on  lengths  of  files 
are  set,  but  they  may  be  expanded  or  contracted. 
The  user  may  create  files  or  may  add  to  those  of 
other  users,  given  the  authority  and  the  dir- 
ections. 


Wildlife  Information  Files 

The  11  files  used  by  PROGRAM  RUN  WILD 
are  listed  below  with  brief  descriptions.  The  file 
numbers  are  assigned  by  the  program. 


File 
No. 


File 
Name 


12    Vegetation  Types 


13 


Key  Habitat 
Factors 


Amphibians 
(Animal  Group  1) 


Birds  (Animal 
Group  2) 


9    Fish  (Animal 
Group  3) 


Description 

A  file  containing  a  set  of  re- 
cords for  each  vegetation  type. 
There  are  31  records  per  set. 
The  first  record  for  a  set  con- 
tains a  hierarchy  number  and  a 
name  for  a  vegetation  type.  Re- 
cords 2-31  for  a  set  contain  the 
same  hierarchy  number  and  up 
to  750  codes  for  animals  in  the 
vegetation  type. 

Similar  in  structure  to  the  vege- 
tation file  but  with  a  sequence 
number  substituted  for  a  hier- 
archy number,  and  the  name  of 
habitat  factor  important  to  a 
number  of  animals  substituted 
for  a  vegetation  type  name. 

A  disc  file  containing  a  name 
record  for  each  amphibian,  each 
record  containing  the  group 
number  (in  this  case  1),  and 
assigned  animal  index  number 
and  its  corresponding  animal 
name.  The  first  record  contains 
number  of  animals  and  date  of 
last  update. 

Same  as  for  file  number  7,  sub- 
stituting birds  for  amphibians 
and  group  number  2  for  group 
number  1. 

Group  number  =  3 
Group  =  Fish 


10  Mammals  (Animal  Group  number  =  4 
Group  4)  Group  =  Mammals 

11  Reptiles  Group  Number  =  5 
(Animal  Group  4)  Group  =  Reptiles 
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14  Management 
Information 


A  disc  file  containing  exactly 
60  card  images  for  each  animal 
species. 


Program  Program 
No.  Name 


Description 


The  first  image  contains  an  1  VGTFAC 

animal  group  number,  index 
number,  and  name.  Thenext59 
images  contain  management 
information  for  the  species. 


15    Bibliographical         A  disc  file  associated  with  the 
References  management  file  by  numbers 

which  flag  information  in  the 
management  file  tht  was  ob- 
tained from  the  numbered  ref- 
erences. A  code  Rl  following 

information  in  the  manage-  2  GROUPS 

ment  file  means  information 
for  the  animal  species  was  ob- 
tained from  reference  number  1 
for  that  species.  The  file  con- 
tains a  set  of  references  for 
each  animal  species.  Each  set 
contains  61  records,  the  first  of 
which  identifies  the  animal  by 
group  and  species  index  num- 
ber and  name.  The  last  60  con- 
tain bibliographical  references 
in  numbered  sequence.  More 
than  onerecord  may  be  used  for 
a  reference,  if  required. 


16  County  Similar  in  structure  to  the  vege-  3  MGMT 

tation  types  file  but  with  a  seq- 
uence number  substituted  for  a 
hierarchy  number  and  corre- 
sponding county  name,  fol- 
lowed by  the  animal  group  and 
species  index  numbers  for  the 
animals  living  in  that  county. 

17  Forest  Similar  to  the  County  file  but 

contains  the  group  and  species 
index  numbers  for  animals  that 
*  live  within  the  given  forest 

boundary. 


Detailed  instructions  to  create  or  update  these 
files  appears  in  Appendices  A-D.  Brief  descrip- 
tions of  programs  to  create  or  update  files 
follows. 


4  MNRF 

Creating  or  Updating  Wildlife 
Information  Files 

The  four  programs  used  to  create  the  11 
previously  mentioned  files  are  described  below. 
They  have  both  a  program  name  and  number.  It 
must  be  explained  here  that  the  user  can  choose 
other  ways  of  updating  or  even  creating  files. 
Some  computer  system  editing  routines  might 
be  more  efficient. 


Used  to  create  or  update  the 
Vegetation  Type,  Key  Habitat 
Factors,  County  and  Forest  files 
from  cards.  For  simplicity,  an 
update  run  is  the  same  as  a 
create  run.  Entire  deck  is  read 
in  each  time  with  numbers  de- 
scribing file  number  (12,  13,  16 
or  17),  number  of  vegetation 
types  (Key  Habitat  Factor,  Coun- 
ties or  Forests)  and  date  of  the 
update. 

Used  to  create  or  update  the 
five  files  containing  names  and 
index  (sequence)  numbers  of 
animal  species  in  each  file. 
Group  1  (file  7)  is  amphibians. 
Group  2  (file  8)  is  birds. 
Group  3  (file  9)  is  fish. 
Group  4  (file  10)  is  mammals. 
Group  5  (file  11)  is  reptiles. 

Again,  for  simplicity,  an  up- 
date is  a  run  of  an  entire  group 
identifying  file  number,  num- 
ber of  records,  and  date.  One  or 
more  files  can  be  updated  in  a 
run. 

Used  to  create  or  update  the 
Management  File.  Input  is  from 
cards.  The  first  card  is  a  header 
card  containing  a  code  identi- 
fying type  of  update  and  the 
number  of  species  currently  in 
the  file  (on  creation,  this  would 
be  zero).  The  code  is  'ADD'  for 
additions  or  'CHG  for  changes. 
Changes  come  first.  For  addi- 
tions, this  card  is  followed  by 
the  60-card  management  deck(s) 
for  the  species  being  added. 
This  deck  (or  decks)  is  followed 
by  a  '9'  card  (9  in  column  1). 
For  changes,  the  header  card 
contains  the  code  'CHG'  and 
the  number  of  species  in  the 
file,  followed  by  one  or  more 
60-card  decks  containing  the 
change(s),  and  then  followed 
by  a  blank  card. 

Used  to  create  or  update  the 
Reference  File.  Input  is  from 
cards.  The  first  card  indicates 
whether  the  cards  following 
are  changes  or  additions. 
Changes  must  come  first.  This 
card  also  indicates  how  many 
species  are  in  the  file  (on  crea- 
tion, this  would  be  zero).  Then 
comes  the  set  of  reference  cards 
for  one  or  more  species  each 
followed  by  a  blank  (maximum 
of  60  cards  for  a  species). 
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More  detailed  information  on  these  programs 
including  detailed  descriptions  of  input  cards 
and  listing  of  the  programs  is  contained  in 
Appendices  A  to  D.  PROGRAM  RUN  WILD  is 
listed  in  Appendix  E. 

Advantages  of  the  RUN  WILD  System 

The  type  of  information  placed  in  the  RUN 
WILD  files  was  determined  after  discussion 
with  wildlife  biologists  and  represents  infor- 
mation many  others  could  use. 

Files,  programs  and  subroutines  to  manipul- 
ate these  files  can  be  added  easily,  since  the  RUN 
WILD  program  is  modular.  Small  programs  can 
be  written  to  extract  information  for  any  of  the 
files  independently  of  PROGRAM  RUN  WILD. 

Technicians  can  be  easily  trained  to  imple- 
ment and  maintain  the  system.  Simplified,  card 
oriented  procedures  are  used,  where  corrections 
and  additions  to  files  are  made  on  cards  before 
making  changes  on  disc.  Patterns  for  file  main- 
tenance are  easily  established. 

Given  some  EDP  knowledge,  one  can  simplify 
data  preparation  procedures  for  some  files.  An 
example  is  the  reproduction  of  the  animal  name 
cards  in  the  five  group  files  (7-11)  to  prepare  the 
first  card  for  each  species  in  the  management 
and  reference  files.  Also,  to  create  the  vegeta- 
tion type,  animal  species  cross  reference  cards 
in  the  VEGETATION  TYPE  file,  the  vegetation 
types  were  compiled  by  hierarchy  numbers  for 
each  species  from  the  management  file,  and  a 
small  program  called  CRRF  (cross  reference) 
was  used  to  punch  cards  containing  names  by 
code  number  in  each  given  vegetation  type.  The 
same  was  done  for  counties  and  forests. 

Use  of  mass-storage-direct  access  files  allows 
access  to  a  given  record  from  any  one  file 
without  searching  for  it.  It  also  allows  large 
files  to  be  used  without  defining  large  arrays  in 
core  storage. 


Limitations 

The  use  of  mass  storage  disc  files  creates  a 
problem  in  that  such  files  are  not  always  avail- 
able when  needed.  One  or  more  files  may  be 
unloaded  to  tape,  and  unless  the  status  of  the 
files  is  checked  and  assignments  made  for  any 
that  are  unloaded  before  using  the  RUN  WILD 
program,  a  run  of  the  program  will  be  un- 
successful. If  the  automatic  file  assignments 
made  in  PROGRAM  RUN  WILD  (calls  to 
ERTRAN)  were  removed  and  assigns  of  the  11 
files  were  done  prior  to  execution,  this  limita- 
tion would  not  exist.  An  alternative  to  having 
system  resident  disc  files  is  described  in  Ap- 
pendix F. 

Some  users  might  prefer  less  card  handling  in 
updating  files.  More  sophisticated  updating, 
such  as  use  of  a  file  editor,  is  an  alternative. 

Since  it  is  necessary  to  know  exactly  where  to 
address  a  given  record  in  any  file,  size  limita- 
tions (60-record  limits  in  management  files,  etc.) 
which  can  be  increased  were  set.  Even  with 
these  limits,  if  all  information  in  all  files  is 
requested,  a  lot  of  paper,  computer  time  and  user 
time  would  be  wasted.  It  is  important  that  the 
user  be  very  selective. 

Persons  wishing  to  use  the  RUN  WILD  PRO- 
GRAM in  batch  mode  could  use  the  subroutines 
in  the  program  with  few  changes  to  access 
information,  but  they  would  have  to  rewrite  the 
main  program. 

The  file  numbers  (7-17)  selected  might  be 
unsatisfactory  on  other  systems  or  might  be 
limiting  to  the  user  who  wants  more  than  five 
animal  group  files,  since  file  numbers  are  used 
as  defined  in  the  program;  wherever  a  read, 
write,  or  file  definition  occurs  using  these  num- 
bers, they  would  have  to  be  changed  to  fit  user  or 
system  requirements. 
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Appendix  A 

PROGRAM  VGTP 


This  program  is  used  for  creating  or  updating 
the  Vegetation  Types  File  (No.  12),  the  Key 
Habitat  Factors  File  (No.  13),  the  Counties  File 
(No.  16),  and  the  Forests  File  (No.  17).  All  four 
files  will  contain  records  of  the  same  structure. 
The  first  input  card  for  each  Vegetation  Type 
(Habitat  Factor,  County,  or  Forest),  will  contain 
an  ID  number  (or  sequence  number)  and  a 
name.  One  or  more  cards  following  it  (maxi- 
mum =  50)  will  contain  the  ID  or  sequence 
number  and  a  series  of  1  to  15  animal  group- 
species  index  pairs  per  card.  These  numbers  will 
associate  the  particular  Vegetation  Type,  Key 
Habitat  Factor,  County,  or  forest  with  the  series 
of  animal  species.  Group  numbers  will  be  1-5, 
where  1  =  Amphibians,  2  =  Birds,  3  =  Fish,  4  = 
Mammals,  5  =  Reptiles.  The  species  numbers 
will  be  sequential  index  numbers  of  animals 
within  groups. 


Input  to  Program  for  Creating  Files 

Card  1  —  Contains  file  number  (12,  13,  16  or 
17)  in  columns  1  and  2. 

Card  2  —  Contains  number  of  Vegetation 
Types,  Key  Habitat  Factors,  Coun- 
ties, or  Forests  in  columns  1-5 
right  justified  and  the  creation 
date  in  the  form  MM/DD/YY  in 
columns  6-13. 

Card  3  to  end  —  A  series  of  number-name 
cards,  each  followed  by  a  series  of 
association  (with  animal  species) 
cards. 

Following  each  number-name  card  with  no 
associations  will  be  a  blank  card.  Also,  fol- 
lowing the  last  association  card,  where  the  last 
association  ends  in  column  80,  will  be  a  blank 
card.  If  a  last  association  card  does  not  use 
through  column  80,  a  blank  trailer  card  will  not 
be  used.  All  available  space  for  coding  asso- 
ciations must  be  used  without  blank  fields 
between  associations. 


Card  No.  3 


Card  Variable 
Columns  Name 


Cards  4+ 


1-6 


IDNO 


8-79  NAME 

1-6  IDNO 

7-20  - 

21  NGRNO(l) 

22-24  NSPNO  (1) 


25-80  NGRN0  (2) 
NSPNO  (2), 
etc. 


Variable  Description 

If  vegetation  types  file,  this  is  hierarchy  number. 
If  any  of  the  three  other  files,  it's  a  sequence  number 
right  justified  in  columns  1-3.  (F6.3) 

Blank 

Name  of  vegetation  type,  key  habitat  factor,  county  or 
forest.  (12  A6) 

This  number  matches  the  IDNO  on  card  3  for  a  vegeta- 
tion type,  key  habitat  factor,  county  or  forest.  (F6.3) 

Blank 

The  group  number  of  a  first  animal  associated  with  the 
vegetation  type,  key  habitat  factor,  county  or  forest.  (II) 

The  species  index  number  of  a  first  animal  associated 
with  the  vegetation  type,  key  habitat  factor,  county  or 
forest.  (13) 

A  series  of  group-species  numbers  as  described  in 
columns  21-24  giving  other  associations.  There  may  be 
up  to  15  such  associations  and  as  many  as  50  cards  to 
give  up  to  750  associations  per  item. 
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Deck  Set-up  for  Creating  Files 


Disc  File  Structure 


1.  Creating  one  file— Card  1,  Card  2,  Cards 
3  to  end,  extra  blank  card  on  end. 

2.  Creating  2  or  more  files— same  as  1,  but 
following  extra  blank  card  a  Card  1,  Card 
2,  Cards  3  to  end  for  next  file,  extra  blank 
on  end. 

Deck  Set-up  for  Updating  Files 

1.  Simply  make  changes  necessary  on  Card 
2.  Add  new  cards  for  new  types  and  asso- 
ciations to  end  of  deck,  make  any  changes 
in  existing  associations  (either  adding  to, 
deleting,  or  replacing  existing  information 
on  association  cards). 

2.  Re-create  file(s)  according  to  1  or  2  under 
"Deck  Set-up  for  Creating  Files". 


1.  The  first  record  of  each  file  contains  the 
number  of  elements,  (i.e.,  Vegetation  Types, 
Key  Habitat  Factors,  Counties,  or  Forests) 
and  the  date  of  creation  or  update. 

2.  There  will  be  31  records  for  each  element, 
the  first  of  which  will  be  a  number-name 
record  for  the  element.  The  next  30  will 
contain  animal  group-species  association 
pairs  or  numbers. 

Example: 

1st  record:  111.000  Alpine  Tundra 
2nd  record:  111.000  1  5 

Means  that  animal  number  5  in  group 

1  (amphibians)  is  found  in  Alpine 

Tundra. 

As  many  as  25  associations  per  record  for 
30  records  (total  of  750)  may  be  made  with 
a  single  element.  All  750  are  accounted  for 
even  if  they  are  blank  or  zero,  (i.e.,  each 
element  has  31  records  in  its  file). 


Disc  File  Record  Structure 
Vegetation  Type,  Key  Habitat  Factors,  County,  Forest  Files 
Files  No.  12,  13,  16,  17 


Record  No. 

1 


3+ 


Variable 

Columns  Name  Variable  Description 

1-6        NRVF  Equals  number  of  records  in  the  file.  There  are  31  records 

for  each  vegetation  type,  key  habitat  factor,  county,  or  for- 
est, plus  1  more  for  this  record.  NRVF  is  calculated  by  the 
program  creating  the  file.  (16) 

7-14        ND1,  ND2       Date  of  latest  update  in  the  form  MM/DD/YY.  (2A4) 

1-  8       IDN0  Hierarchy  number  or  sequence  number  of  vegetation 

type,  key  habitat  factor,  county  or  forest.  (F8.4) 

9-13        NRECN0        The  number  of  the  record  within  the  file.  (15) 

14-17        NASS  Number  of  animals  presently  associated  with  the  item 

within  the  file.  Maximum  equal  750.  (14) 

18-79        NAME  Name  of  vegetation  type,  key  habitat  factor,  county  or 

forest.  (12 A6) 

1        NGRN0  (1)      Group  number  of  first  animal  associated  with  the  vege- 
tation type,  key  habitat  factor,  county  or  forest.  (II) 

2-  5        NSPN0  Species  number  of  first  animal  associated  with  the 

vegetation  type,  key  habitat  factor,  county  or  forest.  (14) 

6-125  NGRN0  (2)  More  associations  as  described  in  columns  1-5.  There 
NSPN0  (2),  are  25  per  record,  30  records.  There  are  750  associations, 
etc.  many  of  them  zero  with  no  association  yet  determined. 


5 


PROGRAM  TO  CREATE  VEG.    TYPE , KHABF ,COU NTY , FOREST  FILES 


DIMENSION  NSC1(6)  ,NCMl(6)  ,NGRP(750)  ,NSPEC(750) 

C    NU    :    FILE  NO .=12,13,16,   OR   17   FOR   EITHER  VEG.   TYPES,    KEY  HAB. 

C    FAC.'S,   COUNTIES,   OR  FORESTS. 

1  READ   (5,500,END=999)  NU 
500   FORMAT  (12) 

DEFINE  FILE  NU ( 2 0000  ,  125  ,  E  ,  I ) 
1  =  1 

C  IREC    :    NO.   OF  VEG.   TYPES,   KEY   HAB.    FAC.'S,   COUNTIES,   OR  FORESTS. 

C    NDl ,ND2    :    DATE  OF  THIS   UPDATE   IN   FORM  MM/DD/YY. 

READ    (5,11)    IREC, NDl, ND2 
11   FORMAT  (I5,2A4) 
C    NRVF    :    PROGRAM  DEFINED  NO.   OF   RECORDS  TO  BE  ON  DISK. 

NRVF=IREC*31+1 

NSC1 (1) =6H 

WRITE    (NU'I,16)    NRVF, NDl, ND2 

16  FORMAT    (I6,2A4  ,111X) 
WRITE    (6,17)    NRVF, NDl, ND2 

17  FORMAT    (IX, 16 ,2A4  ,111X) 
INP  =  5 

C    NGRP (750) ,NSPEC (750)    :    ARRAYS  CONTAINING  A  GROUP  NO.   AND  A  SPECIES 

C    NO.    FOR  EACH  ANIMAL    (MAX=750)    THAT   IS  ASSOCIATED   WITH   EACH  VEG. 

C    TYPE,    KEY  HAB.    FAC.,  ETC. 

10   DO  6  K=l,750 
NGRP (K) =0 
NSPEC (K) =0 
6  CONTINUE 

C    N1,N2    :    LIMITS  OF  NO.   OF  GROUP-SPECIES  CODES  TO  BE   READ  FROM  A 

C    CARD  AT  A  GIVEN  TIME.      CARD   1  Nl=l,N2=15  CARD   2   Nl=l 6 , N2= 30 , ETC . 

Nl=l 

N2=15 

C    ANUMl , ANUM   :    HIERARCHY  OR   ID  NO. 

C    NSC1,NCM1    :    SCIENTIFIC  AND  COMMON   NAMES  OF  VEG.   TYPE,  ETC. 

C    READ  A  HIERARCHY  OR   ID  NO.   AND  A  VEG.   TYPE,    KEY  HAB.    FAC.,  ETC. 

C  NAME. 

READ    (INP,30)    ANUMl ,NSC1 ,NCM1 
30   FORMAT    ( F6 . 3 , 2X ,1 2A6 ) 

C  <  EXTRA  BLANK  TRAILER  CARD  SEPARATES  ONE   FILE  UPDATE   FROM  ANOTHER. 

IF    (NSCl(l) .EQ.6H  )    GO  TO  1 

20   READ    (INP,57)    ANUM , ( NGRP ( J ) , NSP EC ( J ) , J =N 1 , N2 ) 
57   FORMAT    (F 6 . 3  , 1 4 X  ,  1 5 ( 1 1 , 1  3 ) ) 

C    BLANK  TRAILER  CARD   SEPARATES  A  COMPLETELY  FILLED  ASSOCIATION  CARD 

C    AT  END  OF  ONE  SET  FROM  NAME   CARD  FOR  NEXT  SET. 

IF    (ANUM.LE . 0. 0)    GO  TO  60 

C    CHECK  FOR  END  OF   SET  OF  ASSOCIATIONS. 

DO  40  J=N1,N2 

IF    (NGRP  (J  )  .EQ.  0)    GO  TO  50 
40  CONTINUE 
N1=N1+15 
N2=N2+15 
GO  TO  20 

C    N3    :    PROGRAM   DEFINED   NO.   OF  ANIMALS   ASSOCIATED   WITH   A  VEG.  TYPE, 

C    KEY  HAB.    FAC. ,  ETC. 
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C    END  OF  SET  OF  ASSOCIATIONS  CARDS  BY   UNFILLED  CARD. 

50  N3=J-1 

WRITE      (6,52)   ANUM1,I ,N3 , NSC1 , NCMl , (NGRP(K) ,NSPEC(K) ,K=1,N3) 
52   FORMAT    ( IX , F 8 . 4 , 1  5 , 1  4 , 1 2A6 , 36 X , 1 2 ( / , IX , 2 5 ( 1 1 , 1  4 ) )  ) 

WRITE    (NU ' I ,51)    ANUMl ,1 , N3 , NSC  1 , NCMl , (NGRP (K)  ,NSPEC(K)  ,K=1  ,750) 

51  FORMAT    (F8. 4 ,15 ,14 ,12A6 ,36X ,30 (/,25 ( II ,14) ) ) 
GO  TO  10 

C  END  OF  A  SET  OF  ASSOCIATIONS  CARDS  BY  BLANK  TRAILER. 

60  N3=N2-15 

IF(N3.LE.O)  N3=0 
N4=N3 

IF    (N3.LE.0)  N4=l 

WRITE      (6,52)   ANUM1,I ,N 3 ,N SC 1 , NCMl , (NGRP(K) ,NSPEC(K) ,K=1,N4) 
WRITE    (NU  'I  ,51)    ANUMl ,1 , N3 , NSC  1 , NCMl , (NGRP (K)  ,NSPEC (K)  ,K  =  1  ,750) 
GO  TO  10 
999  CALL  EXIT 
END 
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Appendix  B 


PROGRAM  GRPS 


This  program  is  used  to  create  or  update  the 
groups-species  files.  Each  vertebrate  group  (No. 
1-5)  has  its  own  group-species  file  (No.  7-11). 
For  example,  Group  1  is  Amphibians,  and  its 
group-species  file  is  No.  7,  Group  3  is  Birds  and 
its  group-species  file  is  No.  8,  and  so  on.  Each 
group-species  file  is  simply  a  numbered  listing 
of  the  species  in  that  group.  Therefore,  files  7-11 
will  contain  records  of  the  same  structure.  Each 
species  card  contains  the  group  number,  species 
number,  common  name  and  scientific  name. 
Group  numbers  are  1-5,  where  1  =  Amphibians, 
2  =  Birds,  3  =  Fish,  4  =  Mammals,  5  =  Reptiles. 

Input  to  Program  for  Creating  a 
Group-Species  file 

Card  1  —  Contains  a  file  number  (7-11)  right 
justified  in  columns  1  and  2. 

Card  2  —  Contains  the  number  of  species 
within  that  particular  group  in 
columns  1-5  right  justified,  and 
the  creation  date  of  the  file  in  the 
form  MM/DD/YY  in  columns  6-13. 


Card  3  to  end  — 


Card 
Columns 


Variable 
Name 


1  NGRNO 


2-4  NSPNO 


Variable  Description 

Group  number  of  this  animal. 
Always  the  same  for  a  given 
file.  It  is  1-5  depending  on  file 
number.  (II) 

A  sequence  number  assigned  to 
to  the  animal  species.  It  will 
always  be  the  same  once  as- 
signed, since  this  number  is 
used  for  cross  referencing  with 
files  12, 13, 14, 15, 16  and  17.  (13) 


5  -  Blank 

6-77      NAME  Name  of  animal.  (12A6) 

Deck  Set-up  for  Creating  Files 

1.  Creating  only  one  file — Card  1,  Card  2,  and 
Cards  3  to  end  of  that  group. 

2.  Creating  two  or  more  files — same  as  1,  but 
after  the  last  species  in  a  group,  a  next  set 
of  cards  1,  2,  3,  etc..  All  five  group  files  can 
be  created  in  a  single  run. 

Deck  Set-up  for  Updating  Files 

1.  Simply  make  changes  necessary  on  Card 
2  (adjust  the  number  of  species  that  will 
now  occur  in  the  file  if  this  will  change 
because  of  additions  or  deletions,  and  change 
to  new  date).  After  making  necessary  cor- 
rections or  additions,  add  the  deck  of 
species  cards. 

2.  Re-create  file(s)  according  to  1  or  2  under 
"Deck  Set-up  for  Creating  Files". 

Disk  File  Structure 

1.  First  record  of  each  file  contains  the  num- 
ber of  species  in  that  group  file  and  the 
date  of  creation  or  update. 

2.  There  is  one  record  for  each  species,  con- 
taining group  number,  species  index  num- 
ber, common  name,  and  scientific  name. 


Disc  File  Record  Structure 
Animal  Group  Files 

Files  No.  7-11 


Record  No. 

1 

2+ 


Columns 

1-  5 

6-13 
1 

2-  5 
6-77 


Name 

NSIG 

ND1  and 
ND2 

NOGRP 

NOSP 

NAME 


Variable  Description 

No.  of  species  in  the  group  file.  Equals  number  of 
records  in  file  (15) 

Date  of  latest  update  in  the  form  MM/DD/YY.  (2A4) 


Animal  group  number  (II) 
Animal  species  number  (14) 
Name  of  animal  (12A6) 
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PROGRAM  TO  CREATE  ANIMAL  GROUPS 


DIMENSION  NSC  (6)  ,NCM ( 6) 

C    J=FILE  NO.    7,8,9,10,   OR   11   FOR  AMPHIBIANS,   BIRDS,    FISH,   MAMMALS , 

C    OR  REPTILES. 

1  READ   (5  ,500  ,END  =  999)  J 
50  0   FORMAT  (12) 

DEFINE  FILE  J  (  75 0  , 8 0  , E , I ) 

C    NSIG=NO.   OF  ANIMALS   IN  FILE. 

C    NDl ,ND2=UPDATE  DATE. 

READ    (5,5)  NSIC,ND1,ND2 

5  FORMAT  (I5,2A4) 

C    I=RECORD  NO.    OF  RECORD  BEING  WRITTEN.      IT'S  AUTOMATICALLY 

C    INCREMENTED. 

1=1 

WRITE    (J  '1,6)  NSIG,ND1,ND2 

6  FORMAT  (I5,2A4,67X) 
DO  2  0  K=1,NSIG 

C    NOGRP=GROUP  NO.     NOSPC=SPECIES  NO. 

C  NSC  ,  NCM=NAME  OF  ANIMAL. 

READ    (5,10)    NOGRP , NOSPC , NSC , NCM 
10   FORMAT    (I  1 ,13  ,1X  ,12A6 ,3X) 

WRITE    (J  '1,15)    NOGRP, NOSPC, NSC, NCM 
15  FORMAT    (I  1,14 ,12A6 ,3X) 
2  0  CONTINUE 
GO  TO  1 
999  CALL  EXIT 
END 
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Appendix  C 
PROGRAM  MGMT 


This  program  is  used  for  creating  or  updating 
the  Management  File  (No.  14).  The  first  input 
card  for  a  species  will  contain  the  group-species 
numbers  and  the  name  of  the  animal.  The  cards 
following  it  (total=59)  will  contain  the  manage- 
ment information  in  the  categories  of  general 
distribution,  protection  status,  vegetation  types, 
food  habits,  cover  requirements,  key  habitat 
factors,  and  management  practices.  Group 
numbers  are  1-5,  where  1  =  Amphibians,  2  = 
Birds,  3  =  Fish,  4  =  Mammal,  5  =  Reptile.  The 
species  numbers  are  species  index  numbers  of 
animals  within  groups.  For  our  purposes,  a 
complete  list  of  animals  for  each  group  was 
developed  and  put  in  alphabetic  order  by  genus. 
The  resulting  order  gave  us  our  index  numbers. 


Input  to  Program  for  Creating  File 

Card  1  —  Contains  the  type  of  update  (Add 
or  CHG)  in  columns  1-3  and  the 
number  of  species  currently  in 
the  file  in  columns  4-7,  right  justi- 
fied. For  the  first  run,  this  num- 
ber would  be  zero. 

Card  2  —  Contains  group-species  numbers 
*  and  name  of  the  animal.  This  is 

the  first  card  of  a  60-card  animal 
species  management  deck. 


Card  Input  Layout 
Management  File 
File  No.  14 


Cards  3-61  — 


The  remainder  of  the  species 
management  deck.  The  deck 
for  a  species  must  have  60 
cards,  with  all  of  the  infor- 
mation organized  as  shown 
on  the  following  card  layout. 
Where  information  is  incom- 
plete, all  cards  must  occur 
even  if  left  blank. 


Each  record  for  an  animal  species  in  the  disc 
management  file  is  the  image  of  its  correspond- 
ing input  card  as  described  above.  Card  images 
2-61  for  the  first  species  in  the  file  become 
records  1-60  on  disk.  There  will  be  a  60-record  set 
for  each  animal  species  for  which  management 
information  exists. 


Card 
No. 


4-7 


9 
10 

11 
12 
14 

15-24 
25 

26-31 

32 

33-40 
41 

42-47 
48 

49-61 


Card 
Column 

2-21 


7-15 

18-  79 

7-23 
25-80 
2-80 
2-19 
21-80 

7-13 

19-  80 

7-16 
19-80 

2-17 

10-80 

2-12 
4-80 
2-19 

4-80 

2-20 

4-80 
2-21 

4-80 


Variable 
Name 

Contains  the  words.  'GENERAL 
DISTRIBUTION'. 

The  word  'COUNTIES' 

Number  codes  for  the  Counties 
where  this  species  occurs.  (15(12, 
2X),I2) 


The  words 
ESTS' 


'NATIONAL  FOR- 


Number  codes  for  the  Natural  for- 
ests where  this  species  occurs. 

Number  codes  for  the  National 
Forests  where  this  species  occurs. 

The  words  'PROTECTION  STA- 
TUS' 

The  appropriate  code  or  word  des- 
cribing this  species'  status. 

The  word  'ARIZONA' 

The  appropriate  code  or  word  for 
state  status. 

The  word  'NEW  MEXICO' 

The  appropriate  code  or  word  for 
federal  status. 

The  words  'VEGETATION  TYPES', 
only. 

The  hierarchy  numbers  for  the 
vegetation  type  this  species  is  found 
in.  (8(F7.3,1X),F7.3) 

The  words  'FOOD  HABITS'. 

Food  habits  information. 

The  words  'COVER  REQUIRE- 
MENTS'. 

Cover  requirement  information. 
(77A1) 

The  words  'KEY  HABITAT  FAC- 
TORS'. 

Key  habitat  information.  (77A1) 

The  words  'MANAGEMENT 
PRACTICES'. 

Management  information  and 
comments  on  the  species.  (77A1) 
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Deck  Set-up  for  Creating  File: 

1.  Card  1  followed  by  the  60-card  species 
management  deck  for  each  species  to  be 
entered  into  the  file. 

2.  After  the  last  management  deck,  a  card 
with  a  9  in  column  one. 

Deck  Set-up  for  Updating  Files: 

1.  To  add  one  or  more  species  to  the  manage- 
ment file,  proceed  the  same  as  for  "Deck 
Set  Up  for  Creating  File"  with  correct 
number  of  species  currently  in  file  on  Card 
1.  At  the  end  of  the  latest  printout  from  a 
creation  run  or  last  update  will  be  the 
message:  "There  are  NNN  groups  in  file.", 
where  NNN  is  a  number  to  be  punched  on 
Card  1.  Management  information  on  suc- 
ceeding cards  will  be  added  to  the  end  of 
the  management  file.  A  '9'  card  should  be 
the  last  one  when  adding  on. 

2.  To  update  management  information  on 
one  or  more  species  currently  in  the  manage- 
ment file: 

Card  1  —  Contains  the  code  CHG  in 
columns  1-3  and  the  number  of  species 
currently  in  the  file  in  columns  4-7,  right 
justified. 

Cards  1-60  for  each  species— Include 
the  entire  species-management  deck  even 
if  only  one  card  has  been  changed.  The 
deck  set-up  is  similar  to  the  set-up  for 
creating  files,  but  the  card  following  the 
management  deck  must  be  a  blank.  Do  not 
use  a  '9'  card  when  making  changes  in  the 
current  file.  A  '9'  card  is  used  only  after 
additions  to  the  end  of  the  file;  the  blank 
card  follows  changes  within  the  current 
file. 


If  both  additions  and  changes  are  to  be 
made  in  a  single  run,  all  changes  to  exist- 
ing information  shall  be  made  first,  then 
additions.  Changes  or  adds  need  not  be 
in  sequential  order  but  require  all  60  cards 
for  a  species. 

A  sample  update  run  might  be  one  in 
which  changes  in  information  for  the  fol- 
lowing animals  are  required: 
Group  Species 

1  3 

2  10 
1  25 

Also,  we  might  want  to  add  a  group  1, 
species  27. 

The  set-up  would  be: 
Card  No. 

1  "CHG"  in  columns  1-3  and  720  in 

columns  4-7.  (720  is  present  num- 
ber of  animals  in  file). 

2-61         Cards  for  animal  species  number 
3  in  group  1. 

62-121      Cards  for  animal  2,  10 

122-181    Cards  for  animal  1,  25 

182  Blank  card  (end  changes) 

183  "ADD"  in  columns  1-3  and  720 
in  columns  4-7. 

184-243    Cards  for  animal  1,  27 

244  9  in  column  1 

In  any  update,  additions  to  the  file  must  be 
made  last  (i.e.,  the  9  card  must  be  last  of  the  run). 
An  update  involving  both  changes  in  species 
already  in  the  file  and  additions  to  the  file  needs 
only  1  CHG  card  (blank  card  following  last  60 
card  set)  and  1  ADD  card  (9  card  following  last 
set). 


PROGRAM  TO  CREATE  MANAGEMENT  FILE 

C    FOR  CHANGES   IN   INFO  ALREADY   IN   MNGMNT  FILE  THE  FULL   60  CARD  DECK 

C    FOR  A  SPECIES   IS   REQUIRED,  THE  REASON   BEING  THAT  WHEN  CHANGES  ARE 

C    MADE  THEY  SHOULD  BE   EXTENSIVE  ENOUGH  TO  WARRANT  A   RUN.      ALSO  CARD 

C    INFO  STAYS  CURRENT  WITH  DISK. 

DIMENSION  NA  (80)  ,NAME  (65) 
C    KOUNT  KEEPS  TRACK  OF   THE  NO.   OF  SETS  THAT  HAVE  BEEN  ADDED 

KOUNT=l 

DEFINE  FILE  14 ( 9 99 99 , 8 0 , E , I ) 

C    NYTPE  =  ADD  OR  CHG       NREC   =  NO.   OF  ANIMALS  CURRENTLY   IN  FILE. 

1  READ (5,100 ,END=905)    NTYPE ,N  REC 
100  FORMAT(A3,I4) 
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C    READ  GROUP  NO. ,   SPECIES  NO.   AND  ANIMAL  NAME. 

5   READ ( 5  ,11 ,  END  =  9  9  99)    NGRP , NSP ,N AME 
11   F0RMAT(I1,2X,I3,6  5A1,9X) 

C    BLANK  TRAILER  TERMINATES   PRECEDING  GROUP  OF  ADDS  OR  CHANGES. 

IF (NGRP. EQ. 0) GO  TO  1 

C    A    '9'   CARD   TERMINATES  RUN,   PUTS    '9'   ON   LAST  RECORD. 

I F ( N GRP . EQ . 9 ) GO  TO  200 

C  MR EC  =NO.   OF  RECORDS  NOW   IN  FILE. 

MREC=NREC*6  0+1 

IF (NTYPE.EQ. 3HADD) GO  TO  105 

C    LOOK  FOR   60   RECORD   SET  TO  BE  CHANGED. 

DO  20  J=1,MREC,6  0 
READ (14 'I ,30)  N1,N2 
30  F0RMAT(I1,2X,I3) 

IF  (Nl.EQ. NGRP. AND. N2.EQ. NSP) GO  TO  40 
IF (N1.EQ.9) GO  TO  999 
20  CONTINUE 

C    MAKE  CHANGES. 

4  0  I=J 

GO  TO  10  5 
45   DO  60  K=l,59 

READ(5,50)  NA 
50    FORMAT    (8  0A1) 

WRITE (14 'I ,5  0)NA 
60  CONTINUE 

WRITE    (6,500)  KOUNT 
500   FORMAT  (16) 

KOUNT=KOUNT+l 
NREC=NREC+1 
GO  TO  5 

C  ADD  TO  END  OF  FILE. 

105  I=MREC 

WRITE (14 'I ,11)    NGRP , NSP , NAME 
GO  TO  45 
999   WRITE (6,110)    NGRP, NSP 

110    F0RMAT(1X,I1,1X,I3, '  SPECIES   NOT  FOUND  ',/) 
GO  TO  905 

C,  END  FILE  WITH    '9'  RECORD. 

200  WRITE (14 'I ,205)NGRP 
2  05   FORMAT (I  1,79 X) 

c    L00p  TO  READ  AND  PRINT  ANIMAL  NAME   RECORDS   FROM  FILE   FOR  RUN 

C    COMPLETION  VERIFICATION. 

905  DO  210   1=1,99999 ,60 
READ (14 ' I , 5  0 ) NA 
IF(NA(1) .EQ. 1H9) GO  TO  9 
WRITE (6,220)NA 
210  CONTINUE 
220   FORMAT (IX ,8 0A1) 
9  J=I-1 
K=I/6  0 

C    PRINT   IS  FOR  REFERENCE    IN   FUTURE  UPDATES. 

WRITE (6  ,230) J  ,K 

230    FORMAT    (IX,  'RECORDS  WRITTEN   =    ',15,'        THERE  ARE    ',15,'  GROUPS  IN 
1FILE.  ') 
9999  CALL  EXIT 
END 
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Appendix  D 
PROGRAM  MNRF 


This  program  is  used  for  creating  or  updating 
the  Reference  File  (No.  15).  The  references  are 
arranged  by  the  species  they  pertain  to.  The 
first  input  card  for  a  species  contains  the  group- 
species  index  numbers  and  the  name  of  the 
animal.  Following  it  are  the  reference  cards 
(maximum  =  60).  Each  complete  reference  (ref- 
erences may  take  up  several  cards)  is  numbered. 
References  are  numbered  consecutively  for  a 
species  and  correspond  to  reference  index  num- 
bers (numbers  prefixed  by  the  letter  R)  in  the 
management  file.  After  the  last  reference  card  is 
a  blank  card.  This  is  repeated  for  each  reference 
set. 

Input  to  Program  for  Creating 
Management  References  File  (No.  15) 

Card  1  —  Contains  a  code  in  columns  1-3 
which  is  either  "ADD"  or  "CHG" 
to  indicate  whether  we're  adding 
to  the  file  or  changing  reference 
information  already  in  it.  Col- 
umns 4-7  contain  the  total  num- 
ber of  species  already  referenced 
in  file  (at  creation  this  would  be  0). 

Card  2  —  Contains  the  group  number  in 
column  12,  species  number  in  col- 
umns 13,  14,  and  15,  followed  by 
the  name  of  the  animal  in  col- 
umns 16  through  column  80. 

Cards  3  through  end  of  reference  set 
(maximum  =  60  reference 
cards).—  Contains  the  index 
number  of  the  reference  in  col- 
umns 1  and  2,  right  justified,  and 
reference  information  in  columns 
3-76. 

Card  following  reference  set  —  Blank 
card,  necessary  to  separate  this 
reference  set  from  the  following 
reference  set. 

Cards  for  next  reference  sets  —  Follows 
format  for  cards  2,  3  and  a  blank 
for  each  species  referenced. 

The  reference  sets  should  be  entered  in  order 
by  group  number  and  species  index  number, 
(e.g.,  Group  1  -  Species  1  through  last  species 
of  Group  1  should  be  entered  first  followed  by 
the  species  of  groups  2,  3,  4,  5). 


Deck  Set-up  for  Creating  File 

1.  Card  1,  using  the  ADD  code,  then  cards  2 
and  3  to  end  of  reference  set  for  a  species  (maxi- 
mum of  60  cards),  blank  card,  and  repeat  cards, 
2,  3  to  end  of  a  species,  blank  card  for  all  species 
being  entered. 

Deck  Set-up  for  Updating  File 

1.  To  add  one  or  more  reference  sets,  (i.e.,  to 
add  references  for  one  or  more  species  which  are 
not  currently  in  the  reference  file): 

Same  as  described  in  "Deck  Set-up  for  Creat- 
ing File",  with  the  code  "ADD"  in  columns  1-3 
and  the  necessary  changes  on  Card  1  to  show 
the  number  of  species  which  are  currently  in  the 
reference  file.  This  number  can  be  found  on  the 
latest  print  out  from  the  creation  or  most  recent 
update  of  the  file  —  after  the  last  reference  set 
"NNN  SPECIES  REFERENCED",  is  printed 
where  NNN  is  a  number. 

This  will  add  these  reference  sets  onto  the  end 
of  the  current  reference  file. 

2.  To  make  a  correction,  change,  or  addition 
for  one  or  more  species  which  has  been  pre- 
viously referenced  in  the  file: 

Card  1  —  Will  contain  the  code  "CHG"  in 
columns  1-3  and  the  total  number 
of  species  referenced  in  the  file 
in  columns  4-7. 

Card  2  —  Name  card  of  species  being  up- 
dated. (Contains  group  and  species 
index  number) 

Card  3  to  end  of  reference  set  —  The  com- 
plete reference  deck  with  its  res- 
pective corrections  or  additions 
must  be  present  (up  to  a  max- 
imum of  60  cards).  Additional 
references  can  be  added,  because 
the  program  was  written  to  ac- 
commodate all  60  cards  (even  if 
only  5  were  entered  in  file  crea- 
tion) reserving  blank  space  for 
future  additions. 

Card  following  reference  set  —  Blank 
card. 

3.  To  make  changes  in  existing  reference 
sets  in  the  file  and  add  a  new  species-reference 
set  to  the  file  in  the  same  run: 
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Always  do  the  CHANGES  first  and 
ADD's  last.  References  for  several  species 
can  be  changed  by  using  a  single  "CHG"  card. 
After  the  last  reference  set  to  be  changed,  in- 
clude an  extra  blank  card,  followed  by  a  new 
Card  1  with  the  code  'ADD"  and  the  number 
of  species  currently  referenced.  After  the  last 
reference  set  to  be  added,  include  an  extra  blank 
card.  The  program  is  designed  so  that  an  extra 
blank  card  after  a  series  of  changes  signals  that 
a  new  Card  1  will  be  read.  If  no  Card  1  appears, 
it  assumes  end  of  file.  An  extra  blank  card  after 
ADD's  signals  end  of  file  only;  therefore,  all 
CHANGES  must  be  made  before  ADD's  in  the 
same  run. 


Disc  File  Structure 

There  will  be  a  record  1  and  records  2-61  for 
each  animal  species  for  which  there  exists 
references.  Although  there  may  be  just  one 
reference  for  the  animal,  the  file  building 
program  adds  blank  records  through  record 
No.  61  for  the  species.  Future  additions  replace 
these  blank  records.  A  record  with  NGRP=999 
and  N0SP=999  ends  the  file.  It  is  created  by  the 
program. 


Record  No. 

1 


2-61 


Disc  File  Record  Structure 
Wildlife  Reference  File 
File  No.  15 


Columns 

1-3 
4-6 

7 

8-72 
1-2 
3-76 


Variable 
Name 

NGRP 
NOSP 

NAME 

NR 

NA 


Variable  Description 

Animal  group  number  (13) 
Animal  species  number  (13) 
Blank 

Animal  name  (65A1) 
Species  reference  number  (12) 
Bibliographical  reference  (74A1) 


PROGRAM  TO  CREATE   THE  REFERENCE  FILE 

C    FOR   CHANGES   IN   EXISTING  REFERENCE   INFO   THE  PROGRAM  REQUIRES  ALL 

C    EXISTING  REFERENCES   FOR  A   SPECIES.      NOT  A   61  CARD  SET,   BUT  ANIMAL 

C  NAME  CARL) ,    EXISTING  REFERENCES   WITH  CHANGES.     ADDING  REFERENCES 

C    FOR  AN   ANIMAL   IS  A   CHANGE   NOT  AN  ADD. 

C    AN  ADD   IS   ADDITION  OF   REFERENCES   FOR  A  NEW  ANIMAL. 

DIMENSION  NA(74)  ,NAME  (65) 

DEFINE  FILE   15(9 99 99, 80, E, I) 
C    NTYPE=ADD  OR  CHC     NREC=NO .    OF  ANIMALS  PRESENTLY  REFERENCED. 

1  READ    (  5  ,2 ,END  =  9999)  NTYPE,NREC 

2  FORMAT    (A3,  14) 
KK=NREC 

C    NGPP=GROUP  NO.      NSP=SPECIES  NO. 

C    NAME= ANIMAL  NAME. 

5   READ    ( 5,10 ,END=9  99  9)    NGRP , NSP , NAME 
10   FORMAT    ( 11X  ,  I  1 ,1 3 ,65A1) 

C    BLANK  TRAILER  CARD   TERMINATES  ADD  OR  CHANGE . 

IF    (NGRP. EQ. 0)    GO  TO  1 

C    MREC=TOTAL  NO.   OF   RECORDS  NOW   IN  FILE. 

MREC=NREC*61+1 

IF    (NTYPE. EQ. 3HADD)    CO  TO  100 
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C  LOOK  FOR  SET  OF   REFERENCES  TO  BE  CHANGED. 

DO   20  J=1,MREC,61 
REAO    (15'l,30)  Kl,N2 
30  FORMAT  (213) 

It    (Nl. EQ. NGRP. AND. N2. EQ. NSP)    CO  10  40 

C    LAST  RECORD  ON   UlSK   IS    '999'  RECORD. 

it    (Nl.EQ.999)    GO  TO  999 
20  CONTINUE 

C    CHANGE  REFERENCE  SET. 

4U    I=J  +1 

45   DO  6  0  K=l  ,60 

READ    (5,50)    N R ,  N  A 

5  0  FORMAT    (12  ,74A1) 

IF    (NR.NE.0)    GO   fO  51 
NRLF=K-1 
GO   TO  61 
51   WRITE  (6  ,300)    I  ,  N  R  r  In  A 
3uC  FORMAT    ( 1 X  ,  1 6  ,1X ,I2,74A1) 
WRITE    (  L  5  '  I  ,50)    MR ,NA 

6  0  CONTINUE 

C    FILL  UNUSED  DISK  RECORDS   IN   60   IK AGE   SET   WITH  BLANKS. 

61   L=6  0-NRLF 

IF    (L.EQ.0)    GO  TO  5 

MM=NREP+1 

DU   70  N=l,74 

NA  (N)  =111 
70  CONTINUE 

NR  =  0 

DO  80  M=Mrtr60 

WRITE    (15  '1, 3  0)  NR,NA 

8  0  CONTINUE 

C    MAKE  CHANGES   IN   MORE   SETS   IF  ANY. 

KK=KK+1 
GO  TO  5 

C    ADD  RECORDS  TO  END  OF  FILE. 

100  I=MREC 

C    LIST  NEW  REFERENCES. 

WRITE    (6,320)    I ,NGRP , NSP ,NAME 
320   FORMAT    ( IX , 31 6  ,1X ,6 5A1 ) 

WRITE    (15 'I,  200)    NGRP, NSP, NAME 
200   FORMAT    ( 2 1  3  , IX  , 6 5A 1 ) 
NREC=NREC+1 
GO  TO  4  5 

C    SPECIES  NOT  FOUND.      BEGIN  NEW  OPERATION. 

999  WRITE  (6,110) 

110    FORMAT    (IX, 'SPECIES   NOT  FOUND.') 
GO  TO  5 

C    END  FILE   WITH  A    '999'  RECORD. 

9999  NGRP=999 
NSP=999 

WRITE    (6  ,330)    I, NGRP, NSP 
330  FORMAT    (IX, 316) 

WRITE    (15'l,30)    NGRP, NSP 

C    PRINT  NO.   OF  ANIMALS  REFERENCED. 

WRITE    (6,340)  KK 
340   FORMAT    (IX, 16,'  SPECIES  REFERENCED.') 
CALL  EXIT 
END 
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Appendix  E 


PROGRAM  RUN  WILD  LISTING 


C 

c 
c 
c 
c 


PROGRAM   RUN WILD  OFFERS   THE   USER  THE  OPTION  TO  REQUEST  INFORMATION 

FROM   ITS  FILES  BY  ALLOWING  THE  USER  TO  SPECIFY  BY  CODE  THE   KIND  OF 

INFO  DESIRED    (USER   CONTROL)    OR  HE  MAY  ALLOW  THE   PROGRAM  TO  ASK 

QUESTIONS    (PROGRAM  CONTROL) .      THE   INEXPERIENCED   USER  MIGHT  PREFER 

PROGRAM  CONTROL. 

COMMON/MI 1/M1 

COMMON/NR8/R (8) 

COMMON/ESS1/S1 

COMMON/NR1/R1 

INTEGER  Rl ,R2 ,R3 ,R5 ,R6 ,R8 ,R9 ,R ,R11 ,R12 

COMMON/NAN/NRECN  (11)  ,NREC1 (11)  ,ND11 (11)  ,ND22 ( 11)  ,NSW,N2 
THE  CALLS  TO   ERTRAN   ARE   UNIVAC   1100    INSTRUCTIONS  TO  ASSIGN  FILES 
WITHIN   THE  PROGRAM.      SUCH   INSTRUCTIONS   REQUIRE  THAT  THE   FILES  BE 
AVAILABLE    (NOT  ARCHIVED   OR   UNLOADED).     WHEN   THE   FILES   ARE  NOT 
AVAILABLE   THE  PROGRAM  WILL   NOT  RUN  UNTIL  FILES  ARE   ASSIGNED  EXTER- 
NALLY. 
CALL  ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 
ERTRAN 

ERTRAN  (6,'gASG,A  Q FO REST * Ff ORE ST .  ') 
ERTRAN    (6,'eUSF      17.  ,Q  FOREST*  FFO  REST  .  ') 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


6 
6 
6 
6 
6 
6 
6 
b 
6 
6 
6 
6 
6 
6 
6 
6 
6 

(6 
(6 
(6 
(6 


) 


AMPH IB* AMP H .  ) 
,AMPHIB*AMPH  .  ') 
E  I  RDS*BRDS  .  ') 
,  B IRDS*BRDS . 

FISH*FSH . 
rFISH*FSH. 

MA  MML  S  *M AMM , 
,MAMMLS*MAMM, 
REPTLS*REPT , 
,REPTLS*REPT 
VEGTYP* VEGTP . 
,VEGTYP* VEGTP . 
'@USE      13. , KH ABF A* HABF . 
@ASC,A        RNWDMF* RNMF . 
@USE    14.  ,RNWDMF*RNMF . 
PASG,A  QRNREF*FRNREF.  ') 
(dUSE    15.  ,QRNREF*  FRNREF  . 
'(3ASC,A  QCOU  NT Y*  FCOU  NT Y . 

'@USE  16 . ,QCOUNTY*FCOUNTY. 
'  |3ASG  ,  A  Q  FO  REST  *  F FORE  ST  . 
'(?USE      17.  ,QFOREST*  FFO REST . 


PASG,A 
@USE  7, 
@ASG  ,A 
'@USE  8. 
@ASG  ,A 
@USE  9. 
@ASG  ,A 
@USE  10. 
£ASG  ,A 
@USE  11, 
yASG  ,A 
C^USE  12, 


) 


STATEMENTS  AND 


DEFINE  FILE 

MENTS  MAY  BE  UNACCEPTABLE  TO 
SERIES  COMPUTERS   WILL  ACCEPT 

FILL  7 (750  ,80  ,E,K3) 

FILE  8(750, 80, E,K3) 

FILL  9  (750  ,80  ,E  ,K3) 

FILE  10 (750  ,80  ,E  ,K3) 

FILE  11 (750  ,80  ,E  ,K3) 

FILL  12(20000, 125, E,K3) 

FILE  13  (20000  ,  125  ,E  ,K3) 

FILL  14 (99999,80 ,E ,K3) 

FILE  15    (99999  ,80  ,E  ,K3) 

FILE  16 (20000 , 125 ,E ,K3) 

FILE  17(20000  ,  125  , E,K3) 


READS   FROM  FILES  DEFINE   BY  SUCH  STATE- 
YOUR   SYSTEM.      UNIVAC    1100   AND    IbM    36  0 
THEM. 


420 


DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
NCNT=0 
S1=0. 0 
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C    INSTRUCTIONS  BETWEEN  THIS   SET  OF   COMMENTS  AND  THE  NEXT  ALLOW  THE 

C    USER  TO  SPECIFY  USER  OR  PROGRAM  CONTROL.     Ml   =0=PROGRAM  CONTROL 

C    Ml=l  TO  ll=ONE  OF    11  LISTS.     Ml=12=TERMINATE . 

WRITE  (6,5) 

5  FORMAT    (//,1X,79 (1H*) ,/) 
WRITE  (6,9) 

9    FORMAT    (IX,  'IF   YOU   WANT  CONTROL  OVER  WHAT  LISTS   YOU   WANT  ENTER:', 

1  /,10X,'l   FOR  VEG.  TYPES', 

2  /,10X,'2   FOR  ANIMAL  SPECIES   IN  A  GROUP', 

3  /,10X,'3   FOR  COUNTIES', 

4  /,10X,'4   FOR  FORESTS', 

5  /,10X,'5   FOR  KEY  HABITAT  FACTORS', 

6  /,10X,'6  FOR  ANIMALS  NEEDING   KEY   HABITAT  FACTORS', 

7  /,10X,'7   FOR  ANIMALS   IN  A  VEG.  TYPE', 

8  /,10X,'8   FOR  MANAGEMENT   INFO  FOR  AN  ANIMAL', 

9  /,10X,'9   FOR  BIBLIOGRAPHICAL   REFERENCES   FOR  AN  ANIMAL', 
A  /,9X,'10   FOR  ANIMALS   IN  A  COUNTY', 

B  /,9X,'ll   FOR  ANIMALS   IN   A  FOREST', 
C   /,9X,'12  TO  TERMINATE  RUN', 

D   /,5X,'ZERO  TO  BE  QUERIED    (PROGRAM  TAKES  CONTROL).') 

6  READ   (5,75 ,END=141)  Ml 
IF    (M1.EQ.0)    GO  TO  7 

C    USER  TAKES  CONTROL. 

IF    (Ml.EQ.12)    GO  TO  141 
CALL  CNTROL  (Ml) 
WRITE  (6,8) 

d   FORMAT    (IX,  'MORE   LISTS  UNDER  YOUR  CONTROL?',/, 
1   IX, 'IF  SO,   ENTER  CODE  FOR  LIST,   OTHERWISE   ENTER  12   OR  ZERO.') 
GO  TO  6 

C    PROGRAM  TAKES  CONTROL. 

7  READ    (12 '1,10)    NREC12 ,ND1 ,ND2 
10   FORMAT  (I6,2A4,111X) 

WRITE    (6,15)  ND1,ND2 

15  FORMAT  (IX, 'IF  YOU  WANT  A  LIST  OF  A  SERIES  OF  VEGETATION  TYPES  IN 
1THE  REGION ',/, IX ,  'ENTER  WHOLE  NO.  PORTION  OF  HIERARCHY  NO.',/, IX, 
2'FOR  A  COMPLETE  LIST  ENTER   1.      FOR  NO  LIST  ENTER  ZERO.',/,lX, 

3 'ONLY  TYPES  WITH  ANIMALS  IN  THEM  ARE  LISTED   WITH  INDEX  NO.S',/,lX, 

4 'LAST  UPDATE  WAS:  ',2A4,/) 

C    INSTRUCTIONS  FOLLOWING  THIS  SET  OF  COMMENTS  ALLOW  USER  TO  REQUEST 

C    A  LIST  OF  VEGETATION  TYPES  OR  SKIP    (Sl=0)   TO  LISTING  OF  COUNTIES. 

18  READ   (5,31 ,END=140)  SI 
31   FORMAT   ( ) 

20  FORMAT  (A3) 

IF    (S1.EQ.0.0)    WRITE  (6,22) 
22  FORMAT    ( /  ,1X  , 79  ( 1H * )  ,/ ) 

IF    (S1.GT.0.0)   CALL  LISTVT  (NREC12,12) 

IF    (SI. EQ. 0.0. OR. SI. EQ. 1.0)    GO  TO  19 

WRITE  (6,14) 

14   FORMAT    (IX, 'IF   YOU  WANT  MORE,    ENTER  ANOTHER  HIERARCHY  NO. ,  OTHERWI 
1SE  ENTER  ZERO. . ' ,/) 
GO  TO  18 

C    LIST  COUNTIES  OR  SKIP    (Rl=NO)    TO  LISTING  OF  FORESTS. 

19  READ    (16'1,10)    N RE CI 6 , NDl , ND 2 
WRITE    (6,16)    NDl  ,N  D2 

16  FORMAT    (IX, 'IF  YOU  WANT  A  LIST  OF  COUNTIES   IN  THE  REGION   ENTER  YES 
1.',/,1X,'IF  NOT  ENTER  NO . ' , / ,1X , ' LAST  UPDATE  WAS:  ',2A4,/) 

READ    (5,20,END=140)  Rl 

IF    (Rl.NE. 3HYES)   WRITE  (6,22) 

IF    (Rl. EQ. 3HYES)   CALL  LISTVT  (NREC16,16) 
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C    LIST  FORESTS  OR  SKIP    (Rl=NO)    TO  LISTING  OF   ANIMAL  GROUPS. 

READ    (17'1,10)    NREC1 7 , NDl , ND  2 

WRITE    (6,17)  ND1,ND2 
17   FORMAT    (IX, 'IF   YOU  WANT  A  LIST  OF   FORESTS   IN  THE   REGION   ENTER  YES. 
1',/,1X,'IF   NOT  ENTER  NO.  '  , / ,1X ,  ' LAST  UPDATE  WAS:  ',2A4,/) 

READ    (5,20,END=140)  Rl 

IF    (Rl.NE. 3HYES)    WRITE  (6,22) 

IF    (Rl.EQ. 3HYES)    CALL  LISTVT  (NREC17,17) 

C    LIST   SELECTED  ANIMAL   GROUP  OR  SKIP    (R2=0)    TO  LISTING  OF   KEY  HABI- 

C    TAT  FACTORS . 

DO  25  N=7,ll 

READ    (N'1,21)      NRECN  (N)  ,ND11  (N)  ,ND22  (N  ) 
21  FORMAT  (I5,2A4,67X) 

NCNT=NCNT+ NRECN (N ) 
25  CONTINUE 

30  WRITE    (6,35)    (NDll(J) ,ND22(J) ,J=7,11) 

35  FORMAT (1H0 , 'IF  YOU  WANT  A  LIST  OF  THE  FOLLOWING  ANIMALS  FOR  THE  RE 
1GION: ' ,//,10X ,  '1.  AMPHIBIANS  LAST  UPDATE  WAS:  '  ,2A4  ,/ ,10X  ,  '2 .  BI 
2RDS  LAST  UPDATE  WAS:    ' , 2 A4 , / , 1 OX ,  ' 3 .   FISH  LAST  UPDA 

3TE  WAS:    ' , 2A4 ,/ ,10X , '4 .   MAMMALS  LAST  UPDATE  WAS:  ',2A4,/,10X, 

4 '5.    REPTILES  LAST  UPDATE  WAS:    ' , 2 A4 ,//lX , 'ENTER  THE  GROUP  NO., 

5    IF   YOU   DO  NOT  WANT  A   LIST  ENTER  ZERO.',/) 
40  READ   ( 5 ,45 ,END=140)  R2 
4  5   FORMAT  (II) 

IF  ( R2 . LE . 0 )  GO  TO  6 0 
IF  (R2.LE.6)  GO  TO  55 
WRITE  (6,50) 

50   FORMAT    (1X,'TRY  AGAIN.      NUMBER  MUST  BE  GREATER  THAN   ZERO  AND  LESS 
1THAN   6. ' ,/) 

GO  TO  40 
55  R3=R2+6 

N=NRECN (R3) 

CALL  LSTSIG (N  ,R3) 

WRITE  (6,180) 

180   FORMAT    (IX, 'DO  YOU   WANT  A  LIST   OF  ANOTHER  GROUP    (YES  OR  NO)?',/, 
1   IX, 'IF   YES  ENTER  GROUP  NO.',/) 
READ    (5,20,END=140)  NRl 
IF    (NR1.EQ. 3HYES)    GO  TO  40 
WRITE  (6,22) 
60   IF    (R2.LE.0)    WRITE    (6,2  2) 

C    LIST   KEY   HABITAT  FACTORS  OR  SKIP    (R8=NO)    TO  LISTING  OF  ANIMALS 

C    NEEDING  A   KEY   HABITAT  FACTOR. 

READ    (13'1,10)      NREC13 ,ND1,ND2 
WRITE    (6,65)    NDl ,ND2 
65   FORMAT    (IX, 'IF   YOU  WANT   KEY  HABITAT  FACTORS   NEEDED  BY  MANY  SPECIES 
1   IN   THE  REGION  LISTED ',/, IX ,  'ENTER  YES,    IF  NOT  ENTER  NO.      LAST  UPD 
2 ATE  WAS:  ',2A4,/) 
READ    (5,20,END=140)  R8 
IF    (R8.NE. 3HYES)    WRITE  (6,22) 
IF    (R8.EQ. 3HYES)   CALL  LISTVT ( NREC1 3 , 1 3 ) 

C    LIST  ANIMALS  NEEDING  A   KEY  HABITAT  FACTOR  OR  SKIP    (R9,Rl=0)  TO 

C    LISTING  OF  ANIMALS   IN  A  SERIES  OF  VEG.  TYPES. 

74  WRITE  (6,70) 

70   FORMAT    (IX, 'IF   YOU  WANT  A  LIST  OF  SPECIES   IN  A   GROUP  NEEDING  A  HAB 
II TAT  FACTOR ',/ ,1X ,  'ENTER  THE  FACTOR  INDEX  NO.   AND  THE  GROUP  NO.'/, 
2lX,'FOR  A  LIST  OF  ALL  GROUPS  NEEDING  A  FACTOR  ENTER  FACTOR  NO.  AND 
3   ZERO.  ',/,lX,  'FOR  NO  LIST  ENTER  ZEROS.',/) 
READ   (5,75 ,END=140)  R9,Rl 
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75  FORMAT  () 

IF    (R9.LE.0)    GO  TO  76 

IF    (R9.  LE.NREC13)    GO  TO  77 

WRITE  (6,78) 

78  FORMAT    (//,1X,'THE   INDEX  NO.    YOU   ENTERED   WAS  TOO  LARGE.',/) 
GO  TO  74 

77   IF    (R9.GT.0)    CALL  LSTSIV (R9 ,13) 
GO  TO  74 

76  WRITE  (6,22) 

79  NSW=0 

C  LIST  ANIMALS   IN  A  SERIES  OF  VEG.    TYPES  OR  SKIP    (Nl  =  0)    TO  LISTING 

C    OF  ANIMALS   IN  A  SERIES  OF  COUNTIES. 

WRITE  (6,80) 

80  FORMAT    (IX,  'IF   YOU   WANT  A  LIST  OF  SPECIES   IN  A  GROUP   IN   A  SERIES  0 
IF  VEGETATION  TYP  ES  ,',/,  IX  ,  'ENTER  INDEX  NO.   OF  FIRST  TYPE,   THAT  OF 
2LAST,   AND  GROUP  NO .  ' , / ,1X ,  ' FOR  A  LIST  OF  ALL  GROUPS  IN  THESE  TYPES 
3  LET  GROUP  NO.   BE  Z ERO .  '  , / ,1X ,  '  FOR  NO  LIST  ENTER   ZEROS.   IF  ONE  TYP 
4E  ENTER  VEG.   TYPE  INDEX  NO.  TWICE  &  GROUP  NO.',/) 

READ   (5  ,90 ,END  =  140)  Nl,N2,Rl 
9  0   FORMAT  () 

IF    (N1.LE.0)   WRITE  (6,22) 

IF    (N2.LE.NREC12)    GO  TO  91 

WRITE  (6,92) 
92   FORMAT   (//, IX , 'UPPER  INDEX  TOO  LARGE.',/) 

GO  TO  79 
91   IF    (N1.LE.0)    GO  TO  100 

DO  95  J=N1,N2 

CALL  LSTSIV (J ,12) 
95  CONTINUE 

GO  TO  79 
100  NSW=0 

C    LIST  ANIMALS   IN  A  SERIES  OF  COUNTIES  OR  SKIP    (Nl=0)    TO  LISTING  OF 

C    ANIMALS   IN  A  SERIES  OF  FORESTS. 

WRITE  (6,81) 

81  FORMAT  (IX, 'IF  YOU  WANT  A  LIST  OF  SPECIES  IN  A  GROUP  IN  A  SERIES  O 
IF  COUNTIES,  ',/, IX,  'ENTER  INDEX  NO.  OF  FIRST  COUNTY,  THAT  OF  LAST  & 
2  GROUP  NO. ' ,/,lX , 'FOR  A  LIST  OF  ALL  GROUPS  IN  THESE  COUNTIES  LET  G 
3 ROUP  NO.  BE  ZERO.  ',/,lX,  'FOR  NO  LIST  ENTER  ZEROS.  IF  ONE  COUNTY  EN 
4TER  COUNTY  INDEX  NO.   TWICE   &  GROUP  NO.',/) 

READ   (5,90 ,END  =  140)   Nl ,N2  ,R1 
IF    (N1.LE.0)   WRITE  (6,22) 
IF    (N2. LE.NREC16)    GO  TO  82 
WRITE  (6,83) 
83   FORMAT    ( // , IX ,  'UPPE R  INDEX  TOO  LARGE',/) 
GO  TO  100 

82  IF    (N1.LE.0)    GO  TO  300 
DO  85  J=N1,N2 

CALL  LSTSIV (J ,16) 
85  CONTINUE 
GO  TO  100 
300  NSW=0 

C    LIST  ANIMALS   IN  A  SERIES   OF   FORESTS  OR  SKIP    (N1=0)    TO  LISTING  OF 

C    MANAGEMENT   INFO  ON   AN  ANIMAL. 

WRITE  (6,381) 

381  FORMAT  (IX, 'IF  YOU  WANT  A  LIST  OF  SPECIES  IN  A  GROUP  IN  A  SERIES  O 
IF  FORESTS ,',/, IX ,  'ENTER  INDEX  NO.  OF  FIRST  FOREST,  THAT  OF  LAST,  & 
2  GROUP  NO.  ' ,/,lX ,  'FOR  A  LIST  OF  ALL  GROUPS  IN  THESE  FORESTS  LET  GR 
30UP  NO.  BE  ZERO.  ',/,lX,  'FOR  NO  LIST  ENTER  ZEROS.  IF  SAME  FOREST  EN 
4TER  FOREST   INDEX  NO.   TWICE   &  GROUP  NO.',/) 
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READ    (5  ,90  ,END=140)  NlfN2,Rl 

IF    (Nl.LE.O)    WRITE  (6,22) 

IF    (N2. LE.NREC17)    GO  TO  382 

WRITE    (6,8  3) 

GO  TO  300 
382   IF    (N1.LE.0)    GO  TO  101 

DO  385  J=N1,N2 

CALL  LSTSIV  (J  ,17) 
385  CONTINUE 

GO  TO  300 

C    LIST   MANAGEMENT   INFO  FOR  AN   ANIMAL   OR   SKIP    (R5=0)    TO  LISTING  OF 

C    REFERENCES   FOR  AN  ANIMAL. 

101   WRITE  (6,105) 

105   FORMAT    ( 1H    ,'IF   YOU  WANT  MANAGEMENT   INFO.    ON  A  SPECIES,   ENTER  GROU 
IP  NO.   AND  SPECIES  NO .  '  , / , 1 X ,  '  I F   NOT  ENTER  ZEROS',/,) 
READ    ( 5  ,110  ,END=140)  R5,R6 

110  FORMAT  () 

IF    ( NDR ( R5 ,R6 ) . NE . 0)    GO  TO  500 
WRITE    (6,510)  R5,R6 
510   FORMAT    (IX,  'THERE   IS   NO  MANAGEMENT  INFO  FOR  GROUP    ',13,'  SPECIES' 

1  ,14) 
WRITE  (6,22) 
GO  TO  12  5 

500   IF    (R5.LE.0)    WRITE  (6,22) 

IF    (R5.LE. 0)    GO  TO  125 

IF    (R5.LE.5.AND.R5.GE.1)    GO  TO  111 

WRITE  (6,112) 
112   FORMAT    (/, IX,  'GROUP   NO.  MUST  BE   1  TO  5.',//) 

GO  TO  101 

111  IF    (R5.LE.0)    GO  TO  125 
WRITE  (6,115) 

115   FORMAT    (IX,  'ENTER  NO.   OF  CODES  AND  CODE  NO.S   FROM  FOLLOWING  LIST  F 
10R   INFO.  NEEDED.',/, 

2  8X,  'CODES  '  ,/,10X ,  '0   =  NONE  '  , / , 1  OX ,  'l   =  GENERAL  DISTRIBUTION',/ 

3  ,10X,'2   =   PROTECTION   STATUS ',/, 1  OX ,' 3   =  VEGETATION  TYPES',/, 

4  10X,'4   =   FOOD  HABITS ' ,/,10X, '5   =   COVER  REQUIREMENTS',/, 

5  10X,'6  =   KEY  HABITAT  F ACTORS ',/, 10X ,' 7   =  MANAGEMENT  PRACTICES', 

6  /,10X,  '8  =  ALL',/) 

1  116   READ    (5,120,END=140)    N ,  ( R ( I )  ,  1  =  1  ,N ) 

120  FORMAT  () 

IF  (N.LE. 0)  GO  TO  12  5 
IF  (N.LE. 7)  GO  TO  121 
WRITE  (6,122) 

122   FORMAT    (/,1X,'N0.  OF   CODES  MUST  BE   ZERO  TO   7.      TRY  AGAIN.',//) 
GO  TO  116 

121  CALL  MNGING (N ,R5 ,R6 ,NCNT) 

C    LIST  REFERENCES   FOR  AN   ANIMAL   OR  SKIP(R11=0)    TO  LISTING  OF 

C    MANAGEMENT   INFO  AND/OR  REFERENCES  FOR  ANOTHER  ANIMAL. 

125  WRITE  (6,150) 

150   FORMAT    (1X,'IF   YOU  WANT  TO  LIST   SELECTED   REFERENCES   FOR  AN  ANIMAL 
1SPECIES ',/ , IX  'ENTER  THE   GROUP  NO.   AND  SPECIES  NO.,   OTHERWISE  ENTER 
2    ZEROS. ' ,/) 
170   READ    (5,120,END=140)  R11,R12 
IF    (R11.EQ.0)    GO  TO  160 
CALL  MNREF    (Rll ,R12 ,NCNT) 
WRITE  (6,155) 

155   FORMAT    (IX,  'MORE  REFERENCES,   OTHER  SP ECI ES ? ' , /IX ,  ' I F  YES   ENTER  GRO 
1UP  NO.   AND  SPECIES   NO.,   OTHERWISE  ZEROS.',/) 
GO  TO  170 
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160  WRITE  (6,22) 
WRITE  (6,130) 

130   FORMAT    (IX, 'DO  YOU   WANT  MANAGEMENT  INFO  ON  ANOTHER  SPECIES?',/ 

1  ,1X,'IF   YES   ENTER  GROUP  NO.,   SPECIES   NO.'CR  &  NO.   OF  CODES 

2  AND  CODES .',/ ,1X , 'IF  NO  ENTER  ZEROS.',/) 
READ    ( 5  ,110 ,END=140)    R5 ,R6 

IF    (R5.LE. 0)    GO  TO  106 
GO  TO  116 
106  WRITE  (6,22) 

C    GO  BACK  TO  ASK  FOR  LIST  OF  ANOTHER  ANIMAL  GROUP.      REPEAT  OPTIONS 

C    FOLLOWING  THAT. 

WRITE  (6,200) 

200  FORMAT    (IX, 'DO  YOU   WANT  TO  LIST  ANOTHER  GROUP?  '  , / ,1X ,  ' I F  YES  ENTER 
1  GROUP  NO.,   OTHERWISE  ZERO.',/) 
READ   (5,45 ,END=140)  R2 
IF    (R2.GT.0)    GO  TO  55 

C    IF  AN  @EOF  WAS   KEYED   FOR  ANY  RESPONSE   YOU  ARE  SENT  HERE  AND  AGAIN 

C    ALLOWED  TO  SELECT  USER  OR  PROGRAM  CONTROL. 

140  WRITE  (6,142) 

142    FORMAT    (1H0,'IF   YOU  WANT  CONTROL  USE  CODES   1-11  AS  DEFINED  AT  STAR 
IT  OF  RUN.  ',/,lX,  'TO  EXIT  ENTER  12.') 
GO  TO  6 

141  WRITE  (6,210) 

210   FORMAT    (/ ,1X , 35HTHAT 'S  ALL  Y'ALL.   ENTER  @FIN,   KIN.  ,/) 
WRITE  (6,22) 
CALL  EXIT 
END 

SUBROUTINE  LISTVT (NOREC ,NLST) 

C    SUBROUTINE  THAT  LISTS  VEGETATION  TYPES, KEY   HABITAT  FACTORS,  COUNTIES 

C    OR  FORESTS. 

DIMENSION  NSC  (6)  ,NCM( 6) 

COMMOw/ESSl/Sl 

C    FILES   12,13,16,17  =  VEG.   TYPES,   KEY  HABITAT  FACTORS,  COUNTIES, 

C    FORESTS,  RESPECTIVELY. 

IF    (NLST.EQ.12)   WRITE  (6,1) 

1  FORMAT    (IX,  'INDEX' ,/,2X,  'NO.        ID  NO.  NAME',/) 
IF    (NLST.EQ.13)    WRITE  (6,2) 

IF  (NLST.EQ.16)  WRITE  (6,2) 
IF    (NLST.EQ.17)    WRITE  (6,2) 

2  FORMAT    (/,5X,  'INDEX', /,6X,  'NO.  NAME',/) 
KK=-1 

J=NOREC-30 

DO  40  »L=2  ,J  ,31 

K=L 

C  READ  A  DISK  RECORD  CONTAINING  HIERARCHY  OR  ID  NO.,    INDEX  NO.  OF 

C    THIS  RECORD,   NO.   OF  ANIMALS  ASSOCIATED   WITH  THIS  RECORD,   AND  NAME 

C    OF  VEG.   TYPE,   KEY  HAB.    FAC,   COUNTY  OR  FOREST. 

READ    (NLST'K,20)    ANUM, I I , N3 , NSC , NCM 
20   FORMAT    ( F8 . 4  , 1  5  , 1  4  ,1 2A6  ,  36X ) 
KK=KK+1 

C    IF  NO.   OF  ANIMALS   GT   ZERO  PRINT  NAME   READ  ABOVE. 

IF    (N3.GT.0)    GO  TO  16 

IF    (NLST.EQ.13)    GO  TO  15 

IF    (NLST.EQ.16)    GO  TO  15 

IF    (NLST.EQ.17)    GO  TO  15 
C    LIST  THE  VEG.   TYPE  NAME  AT  B IO ME  LEVEL  EVEN   IF  NO  ANIMALS  DWELL 
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C    WITHIN. 

N=ANUM*10000. 0 

IF    (MGD(N,1000) .NE.O)    GO  TO  15 
NSW1=0 

C  IF  Sl  =  l    (SET   IN   MA  IN   PROGRAM)    COMPLETE    LIST   OF  VEG.   TYPES   IS  GIVEN 

C    OTHERWISE  ONLY  A   SELECTED   PORTION   OF  LIST. 

IF    (Sl.EQ.1.0)  NSW=1 

IF    ( (ANUM-Sl) .GE.O. O.AND. (ANUM-Sl ) .LT.10.0)  NSWl=l 
IF    (NSW1.EO.0)    GO  TO  40 
WRITE    (6,50)  ANUM,NSC,NCM 
50   FORMAT      ( 6X  , F9 . 3  ,  3X  ,  1 2A 6 ) 

15  IF    (N3.LE.0)    GO  TO   4  0 

16  J J=II-30*KK-1 

IF    (NLST.NE.12)    GO  TO  32 
NSW=0 

IF    (Sl.EQ.1.0)  NSW-1 

IF    ( (ANUM-Sl) .GE.O. O.AND. (ANUM-Sl) .LT.10.0)  NSW=1 
IF    (NSW. EQ. 0)    GO  TO   4  0 
WRITE    (6,30)    JJ ,ANUM,NSC,NCM 
GO  TO  4  0 

30  FORMAT    ( IX  ,  I  4  , 1 X , F 9 . 3  ,  3X  ,  12 A6 ) 

32  IF  (NLST.EQ.13)  WRITE  (6,31)  JJ,NSC,NCM 
IF  (NLST.EQ.16)  WRITE  (6,31)  J J  ,NSC,NCM 
IF    (NLST.EQ.17)    WRITE    (6,31)  JJ,NSC,NCM 

31  FORMAT  (4X,I5,2X,12A6) 
40  CONTINUE 

WRITE  (6,35) 
35   FORMAT    ( /  ,  IX  ,  79  ( 1H  * )  ,  / ) 
RETURN 
END 

SUBROUTINE   LSTSIG (NSIG ,NF ) 

C    SUBROUTINE  THAT  LISTS  AMPHIBIANS,   BIRDS,   FISH,   MAMMALS,   OR  REPTILES 

DIMENSION  NSC  (36)  ,NCM(36)  ,NN AME (2,5) 

DATA    ( (NNAME ( I , J ) ,1=1,2) ,J=1,5) /5HAMPHI , 5HB I ANS , 5HB I RDS , 5 H  ,5H 
1FISH    ,5H  , 5 HMAMMA , 5HLS        ,  5HREPTI , 5HLES  / 

C    CHANGE  NF    (SELECTED   GROUP  FILE  NO.)    TO  1,2,3,4,   OR   5    (GROUP  NO.). 

MM=N  F-6 

WRITE    (6,5)    (NNAME  (I  , MM)  ,1  =  1  ,2)  , MM 
5   FORMAT    (/, IX,  'LISTED  BELOW   IS  THE   GROUP   CALLED:    ',2A5,'.      IT   IS  GR 
10UP  NO.    ',11,  '.  ',//,5X,  'INDEX', /,6X,  'NO.  ',10X,  'NAME ') 

C    NSIG  =  NO.    OF  ANIMALS   IN  FILE. 

NSIG=NSIG+1 
NX1=1H 

DO  10  K=2 ,NSIG 
I=K 

READ    (NF'I,15)    NOSPC ,NSC ,NCM 
15  FORMAT    (IX, 14 ,72Al ,3X) 

IF    (NSC  (1)  .EQ.NXl)    GO  TO  35 

C    SPACE  BETWEEN  GROUPS   OF   ANIMALS  WITH   DIFFERENT  FIRST  LETTER  OF 

C  NAME. 

NX1=NSC (1) 
WRITE  (6,25) 
25  FORMAT  (IX) 

35  WRITE    (6,20)    NOSPC , NSC ,NCM 
20   FORMAT    ( 5X , I  4 , 2X , 72 Al) 
10  CONTINUE 

WRITE    (6,4  0) 
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40   FORMAT    (/,10X,'+   INDICATES  CONTINUATION  OF  A  ONE  WORD  NAME', 
1   /,10X,'*   INDICATES   A  THREATENED  AND/OR  ENDANGERED  SPECIES') 

WRITE  (6,30) 
30   FORMAT    ( /  ,1 X  ,  79  ( 1H  * )  , /) 

RETURN 

END 


C  KK 

C  I  : 

C  NF 


C  N3 

C  NSC 

C  Ml 


SUBROUTINE  LSTSIV    ( INDX ,NF ) 

C    SUBROUTINE  THAT  LISTS  ANIMALS   IN  VEGETATION  TYPE,  COUNTY,   OR  FOREST 

C    OR  ANIMALS  NEEDING  A  PARTICULAR  KEY  HABITAT  FACTOR 

COMMON/NAN/NRECN (11) ,NREC1 (11) ,NDll (11) ,ND22 ( 11) ,NSW,N2 

COMMON/M11/M1 

COMMON/NR1/R1 

INTEGER  Rl 

DIMENSION  NSC(6)  ,NCM(6)  ,NFILL(6)  ,NGR(750)  ,NSP(750) 
DATA  NFILL/5HFOLLO ,5HWING    ,5HIS  A    ,5HLIST    , 5HOF  AN , 5H IMALS/ 
C    LIST  OF  VARIABLES  USED   IN  LSTSIV  AND  THEIR  USES 

C    INDX   :    INDEX  NO.   OF  VEG.   TYPE,   KEY  HAB .    FAC. ,  COUNTY,   OR  FOREST 

C    (HENCEFORTH  TO  BE  CALLED  ELEMENT) . 

NO.   OF  ELEMENTS  PRECEDING  THIS  ONE  ON  DISK. 
DISK  RECORD  NO.  OF  NAME  RECORD  OF  ELEMENT. 
FILE  NO.    (12 ,13,16 ,0R17)   OF  ELEMENT. 

C    ANUM   :    HIERARCHY  OR   ID  NO.   OF  ELEMENT. 

NO.   OF  ANIMALS  ASSOCIATED  WITH  ELEMENT. 
NCM   :    SCIENTIFIC  &  COMMON  NAMES  OF  ELEMENT. 
VARIABLE  COMMONED  WITH  MAIN  PROGRAM  AND  CONTROL  SUBROUTINE  TO 

C    IDENTIFY  WHICH  ANIMAL  GROUP   IS  BEING  REQUESTED   WHEN   IN  USER 

C    CONTROL. 

C    NSW  :  A  SWITCH  SET  TO  1  WHEN  A  SERIES  OF  ELEMENTS  FOR  WHICH  ASSOC - 

C    IATIONS  ARE  REQUESTED  HAVE  NONE  TO  LIMIT  PRINTING.      LEFT  AT  ZERO 

C    WHEN  THERE  ARE  ASSOCIATIONS. 

C    N15,N16    :    FIRST  &  LAST   INDEX  NO.'S  OF  A  SERIES  OF  ANIMALS  NOT 

C    ASSOCIATED  WITH  AN  ELEMENT. 

C    N2    :   VARIABLE  COMMONED  WITH  MAIN  PROGRAM.      INDEX  NO .  OF  LAST  OF  A 

C    SERIES  OF  ELEMENTS  FOR  WHICH  ASSOCIATIONS  ARE  REQUESTED. 

C    NFILL  :    FIRST  PART  OF  PRINT  LINE  USED  WITH  ALL  ELEMENTS. 

C    M   :    RECORD  NO.  OF  FIRST  ASSOCIATIONS  RECORD  FOR  AN  ELEMENT. 

KK=INDX-1 

C    DETERMINE  DISK  RECORD   NO.   OF  NAME  RECORD. 

I=31*KK+2 

C  READ  NAME  RECORD  FROM  DISK  FOR  VEG.   TYPE,   KEY   HAB.    FAC,   COUNTY  OR 

C    FOREST  SELECTED. 

READ    (NF'I,10)    ANUM, N3 , NSC, NCM 
10   FORMAT  (F8.4,5X,I4,12A6,36X) 

C    ONLY  READ  IN  AND  PRINT  ASSOCIATIONS  WITH  THE  ELEMENT  IF  THERE  ARE 

C  ANY. 

IF    (N3.GT.0)    GO  TO  15 

IF    (N3.GT. 0.AND.M1.GT. 0)    GO  TO  55 
C    ONLY  DO  NEXT  11  LINES  IF  NO  ASSOCIATIONS. 

IF    (NSW.EQ.0)  N15=INDX 

NSW=1 

N16=INDX 

IF    (INDX.EQ.N2)    GO  TO  15 
RETURN 

15   IF    (NSW.EQ.0)    GO  TO  55 
WRITE    (6,25)  NF,N15,N16 
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25   FORMAT    (1HO,'NO  SPECIES  OCCUR   IN  FILE  NO.    ',12,'   FOR  INDEX  NO.S  ', 
1    13,'   THRU    ',13,'   IN   THAT  FILE.',/) 
WRITE  (6,75) 

IF    (INDX.EQ.N2.AND.N3.EQ. 0)  RETURN 

C    WRITE  HEADINGS . 

55    IF    (NF.EQ.12)    WRITE    (6,20)    NF ILL ,NSC , NCM , ANUM , I NDX 
20   FORMAT    (/,1X,6A5,'   IN  VEGETATION  TYPE:  ', 

1  //,20X,12A6 ,/ ,13X ,  'ID  NO.    :    ', F9.4,5X, 'INDEX  NO.    :  ',15,/) 
IF    (NF.EQ.13)    WRITE    (6,30)    NF ILL ,NSC ,NCM , I NDX 

30  FORMAT    (/,1X,6A5,'  NEEDING  HABITAT  FACTOR:    ' ,// ,20X ,12A6 ,/ , 
1   25X, 'INDEX  NO.   -  ',15,/) 

IF    (NF.EQ.16)    WRITE    (6,31)    NF ILL ,NSC ,NCM, INDX 

31  FORMAT    (/,1X,6A5,'   IN  COUNTY:    ' , // , 2 OX , 1 2 A6 ,/ , 
1  25X,  'INDEX  NO.   -  ',15,/) 

IF    (NF.EQ.17)    WRITE    (6,32)    NF ILL , NSC , NCM , INDX 

32  FORMAT    (/,1X,6A5,'   IN  FOREST:    ' , // , 2 OX , 1 2 A6 , / , 
1   25X,  'INDEX  NO.   -  ',15,/) 

WRITE  (6,35) 

35   FORMAT    (IX,  'GROUP     SP EC I ES ' , / , 2 X ,  'NO .  NO .  '  ,  10X  ,  'NAME ' , / ) 

C    READ  GROUP   SPECIES   NO. 'S  OF  ANIMALS  ASSOCIATED   WITH  ELEMENT. 

M=31*KK+3 

READ    (NF'M,40)    (N GR ( J )  , NSP  ( J )  , J =1  , 7 5 0 ) 
40   FORMAT  (25(11,14)) 

C    READ  AND  WRITE  NAMES  OF   ANIMALS  ASSOCIATED   WITH  ELEMENT  FROM  FILE 

C  7  ,   8  ,  9 ,   10 ,   OR  11. 

DO  70   1=1, N3 

JJ=NGR (I ) 

LL=NSP (I ) 

IF    (NGR (I ) .GT.5)    GO  TO  70 
IF    (R1.EQ.0)    GO  TO  71 
IF    (NGR (I ) .NE.R1)    GO  TO  70 
71  N=NGR(I)+6 
KK=NSP (I ) +1 

IF    (NGR  (I) .EQ.2.AND.N3P (I)  .GE.178)  KK=KK-1 

READ    (N'KK,50)    NOGRP , NOSPC , NSC ,NCM 

IF    (NOGRP. GT.5)    GO  TO  70 

WRITE    (6,60)    NOGRP, NOSPC, NSC, NCM 
60  FORMAT    ( 4X , 1 1 , 4X , I  4 ,4X , 12 A6 ) 
50   FORMAT    ( 1 1  , 1 4  ,1 2A6  ,1 5X ) 
70  CONTINUE 

NSW=0 

WRITE  (6,75) 
75  FORMAT    ( / , IX , 79 ( 1H * ) ,/) 
RETURN 
END 

SUBROUTINE  MNGING (NCDS ,NGRP , NSPC , NCN T) 

C    SUBROUTINE  THAT  LISTS  MANAGEMENT   INFORMATION  FOR  A  GIVEN  ANIMAL 

COMMON/NR8/R (8) 

DIMENSION  NSC (6)  ,NCM(6)  ,NA(80) 
INTEGER  R 

COMMON/NAN/NRECN (11) ,NREC1(11) ,NDll (11) ,ND22 (11) ,NSW,N2 
DIMENSION   Z  (11,2) 
EQUIVALENCE    ( Z  ,NRECN ) 
C    LIST  OF  VARIABLES  USED   IN  MNGING  AND  THEIR  USES 

C  Z(ll,2)    :    (Z(7,I)   THROUGH   Z  ( 11  ,  I  )  ,1=1,2)   CONTAIN  NO.  OF  ANIMALS  IN 

C   THE  GROUP  FILES.      THEY'RE  OBTAINED  FROM  NRECN(ll)    OR  NRECl(ll) 

C    DEFINED  IN   MAIN  PROGRAM  OR  CONTROL  SUBROUTINE. 
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C    INDX    :    CAUSES   Z  ARRAY  TO  BE  DEFINED   DEPENDING  ON  NRECN  OR  NREC1 

C    ARRAY    (PROGRAM  OR  USER  CONTROL) . 

C    NRECN(ll)    :   NO. 'S  OF  ANIMALS   IN  EACH  GROUP    (READ  BY  MAIN  PROGRAM) 

C    ONLY   ELEMENTS   7-11  ARE  USED. 

C  NRECl(ll)    :    SAME  AS  NRECN  (11)    BUT  READ  BY  CONTROL  SUBROUTINE. 

C    NCDS    :   NO.   OF   CATEGORIES  OF  MNGMNT  INFO  REQUESTED  FOR  ANIMAL. 

C    R(8)    :    INPUT  ARRAY  CONTAINING  CODES   FOR  CATEGORIES   1-8  (8=ALL). 

C    NGRP   :   GROUP  NO. 

C    NSPC   :    SPECIES  NO. 

C    I    :    RECORD  NO.   OF  ANIMAL  NAME   RECORD   IN  MNGMNT  FILE. 

C    NA(80)    :    READ  AND  PRINT  LINE. 

C    N2,N3    :    FIRST  AND  LAST  RECORD  NO.'S  OF   A  MNGMNT  INFO  CATEGORY  TO 

C    BE  PRINTED  FOR  AN  ANIMAL. 

C    M7=NO.   OF  ANIMAL   IN   FILE  ASSUMING  ANIMALS  TO  BE   IN  SEQUENCE  WITH 

C    GROUP  1   FIRST,   GROUP   2  SECOND,   3,   THIRD,  ETC. 

IF    (NRECN (7) .GT. 0)  INDX1=1 

IF    (NREC1 (7) .GT. 0)  INDXl=2 

M7=0 

DO  200  K=l,5 

IF    (K.NE.NGRP)    GO  TO  205 
KK=K+6 

M7=M7+Z (KK,INDX1) 
GO  TO  200 
205    (IF  K. GT .NGRP )   GO  TO  210 

M7=NSPC+M7 
200  CONTINUE 
210  I=M7*60+1 

IF    (NGRP.GT. 5)    GO  TO  90 

C    READ  FIRST  RECORD  FOR  ANIMAL  FROM  MNGMNT  FILE.      IT  CONTAINS  GROUP 

C    NO.,   SPECIES   NO. ,   AND  NAME. 

READ   (14'I,20)    NG1 ,NS1  ,NSC ,NCM 
20  FORMAT    (11,15 , 12A6 , 2X ) 
IF    (NG1.GT.5)    GO  TO  90 

IF    (NG1.NE.NGR. AND. NS1.NE. NSPC)   GO  TO  90 
N1  =  I 

WRITE    (6,35)   NG1 ,NS1 ,NSC ,NCM 
35   FORMAT   (/, IX,  'FOLLOWING  IS  MANAGEMENT  INFO.   FOR  GROUP  ',11, 
1      '  SPECIES    ',14, //IX,  'SPECIES  NAME:  ',12A6/) 


DO  50  J=1,NCDS 

IF  (R(J).LE.O) 

GO  TO 

50 

IF  (R(J).GT.8) 

GO  TO 

50 

JR=R(J) 

GO  TO  (1,2,3,4 

,5,6,7 

,8)  ,JR 

1 

N2=N1+-1 

N3=Nl+7 

GO  TO  60 

2 

N2=Nl+8 

N3=N1+11 

GO  TO  60 

3 

N2=N1+12 

N3=N1+17 

GO  TO  60 

4 

N2=N1+18 

N3=Nl+24 

GO  TO  6  0 

5 

N2=Nl+25 

N3=Nl+33 

GO  TO  60 
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6  N2=Nl+34 
N3=Nl+38 
GO  TO  60 

7  N2=Nl+39 
N3=Nl+59 
GO  TO  60 

8  N2=N1+1 
N3=Nl+59 

60  DO  80  I=N2,N3 
K=I 

C    READ  AND  WRITE   MNGMNT   INFO  FOR  THE  ANIMAL  FOR  A  CATEGORY. 

READ   (14'K,65)  NA 
65  FORMAT  (80A1) 
DO  75  INDX=1,80 

IF    (NA ( INDX) .NE. 1H   )    GO  TO  78 
75  CONTINUE 
78  WRITE    (6,70)  NA 
70   FORMAT  (1X,80A1) 
80  CONTINUE 

WRITE  (6,85) 
85  FORMAT    ( / , IX , 79 ( 1H* ) , /) 
50  CONTINUE 

GO  TO  100 
90  WRITE    (6,95)  NGRP,NSPC 

95   FORMAT    (IX,  'THERE   IS  NO  MANAGEMENT   INFORMATION  ON   GROUP    ',11,'  SPE 
1CIES    ' , 14 ,  '   IN  FILE.  ' ,/) 
WRITE  (6,85) 
100  RETURN 
END 

SUBROUTINE  MNREF    ( R 1 1 , R 1 2 , NCN T ) 

C    SUBROUTINE  THAT  LISTS  BIBLIOGRAPHICAL  REFERENCES  FOR  A   GIVEN  ANIMAL 

DIMENSION  R(30)  ,NA(74)  ,NAME (72) 
INTEGER  R,R11,R12 

COMMON/NAN /NRECN (11) ,NREC1(11) ,NDll(ll) ,ND22 (11) ,NSW,N2 

DIMENSION  Z(ll,2) 

EQUIVALENCE    (Z, NRECN) 

C    LIST  OF  VARIABLES  USED   IN  MNREF   AND   THEIR  USES 

t    Z(ll,2)    :    SAME  AS  IN  MNGING. 

C    INDX   :   SAME  AS  IN  MNGING. 

C    NRECN (11)    :   SAME  AS  IN  MNGING. 

C    NRECl(ll)    :   SAME  AS  IN  MNGING. 

C    Rll    :   GROUP  NO. 

C    R12    :   SPECIES  NO. 

C    I    :    RECORD  NO.   NAME   RECORD  FOR  ANIMAL  REQUESTED. 

C    N    :    KEYBOARD   INPUT.      N=0=NO  REFERENCES   REQUESTED.      N=99=A  SERIES 

C  IN   SEQUENCE.     N=NOT  ZERO  OR  99  =  LIST   REFERENCE  NO.'S  X,Y,Z,ETC, 

C    WHERE   X,Y,Z,ETC.   WILL  BE   KEYED  IN. 

C  R(8)    :    INDEX  NO .  'S  OF  SELECTED   REFERENCES    (TO  BE   KEYED  IN). 

C    11,12   :   LIMITS  OF  NO.  OF  REFERENCE  RECORDS  THAT  NEED  TO  BE  CHECKED 

C    FOR  PRINTING* 

C    M,NN   :    FIRST  AND  LAST   INDEX  NO.'S  OF  REFERENCES  TO  BE  LISTED. 

C    NSW   :   SWITCH  SET  TO   1  WHEN  A  DESIRED   REFERENCE   IS   FOUND  AND 

C    PRINTED.      IT  ALLOWS   FOR  REFERENCES   NOT  IN  SEQUENCE. 

C    L    :    RECORD  NO.  OF  A   REFERENCE   FOR  AN  ANIMAL  TO  BE  READ  AND  CHECKED 

C    FOR  PRINTING. 

C    NR   :    REFERENCE  NO.   AS  READ  FROM  DISK. 

C    NA(80)    :    READ  AND  PRINT  LINE    (REFERENCE  INFO). 
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C  KK    :    SAVED  AS  RECORD  NO.    OF  LAST  READ  RECORD  TO  SEE   IF   LATER  READ 

C    REFERENCE  RECORDS  ARE  PART  OF  THE  DESIRED  REFERENCE. 

C    M7=NO.   OF  ANIMAL   IN   FILE  ASSUMING  ANIMALS  TO  BE   IN   SEQUENCE  WITH 

C    GROUP  1   FIRST,   GROUP   2  SECOND ,   3,   THIRD,  ETC. 

IF    (R11.GT.5)    GO  TO  100 

IF    (NRECN (7) .GT. 0)  INDXl=l 

IF    (NREC1 (7) .GT. 0)  INDX1=2 

M7=0 

DO  200  K=l,5 

IF    (K.NE.R11)   GO  TO  205 

LL=K+6 

M7=M7+Z (LL,INDX1) 

GO  TO  200 
205   IF    (K.GT.R11)    GO  TO  210 

M7=R12+M7 
200  CONTINUE 
210  I=M7*60+1 

C    READ  RECORD  FROM  REFERENCE   FILE  WITH  GROUP  NO.   SPECIES  NO.  AND 

C  NAME. 

READ   (15'l,20)   NGRP ,NSP ,NAME 
20   FORMAT   (  21  3  ,1X  ,  72A1) 

IF    (NGRP.GT . 5)   GO  TO  100 

IF    (NGRP. NE.R11. AND. NSP.NE.R12)    GO  TO  100 
WRITE  (6,10) 

10   FORMAT    (/,1X,  'IF   YOU   WANT  A  SERIES  OF  REFERENCES  NOT  IN  SEQUENCE', 
A/, IX, 'ENTER  NO.  OF   REFERENCES  CR  &  THEIR  INDECES . '/ , IX , ' FOR  A  SERI 
BES   IN   SEQUENCE  ENTER  THE  NO.    99  CR  &   FIRST  AND   LAST   INDEX  NO.S.', 
C     /,1X,'IF  NONE  ENTER  ZEROES.',/) 
NREC=I 
35  READ    (5,4  0)  N 
4  0  FORMAT  () 

IF    (N.EQ.0)    GO  TO  9999 
IF    (N.EQ.99)    READ    (5,40)  R(1),R(2) 
IF    (N.NE.99)    READ    (5,40)  (R(J),J=1,N) 
WRITE    (6,47)    NAME, NGRP ,NSP 
47   FORMAT    (/, IX, 'FOLLOWING  IS  A   LIST  OF  REFERENCES  FOR  THE  ANIMAL  CAL 
1LED   ',/,10X,72Al,/,20X,  'GROUP  NO.   -    ',I3,2X,  'SPECIES  NO.   -  ',13,/) 
11=1 
12=60 

IF    (N.EQ.99)    GO  TO  9  0 
M=l 
NN=N 

C    LOOP   70   INTRODUCES  THE   DESIRED  REFERENCE  TO  LOOP  60. 

45   DO  70  I=M,NN 
42  NSW=0 

C    LOOP  60  CHECKS   EACH  OF   THE   60   REFERENCE  RECORDS  TO  SEE   IF   IT'S  A 

C    DESIRED  ONE. 

DO  60  J=I1,I2 

L=NREC+J 

READ    (15'L,50)    NR ,N A 
50  FORMAT  (I2,74Al) 
KK=J 

IF    (NR.EQ.0)    GO  TO  71 

IF    (N.EQ.99.AND. (NR.GE.M.AND.NR.LE.NN) )    GO  TO  53 

IF    (N.EQ.99)    GO  TO  65 

IF    (NR.NE.R (I ) )    GO  TO  65 
53  WRITE    (6,55)    NR ,NA 
55  FORMAT  (1X,I2,74A1) 

NSW=1 
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60  CONTINUE 

C    CHECK  FURTHER   IN    60  RECORD   SET  FOR  MATCHES   IN   CASE   OF  POSSIBLE 

C    NON -SEQUENCED  SET. 

65  I1=KK 

IF    (NSW.NE.O)    GO  TO   7  0 

11=11+1 

GO  TO  42 

70  CONTINUE 

71  WRITE  (6,75) 

75   FORMAT    (/,1X,'M0RE   FOR  SAME  SP EC IES? ' , / , IX ,  '  I F   YES   ENTER  MORE  INDE 
ICES   AS  BEFORE ,   OTHERWISE   ENTER  ZERO.',/) 
GO  TO  35 
90  M=R(1) 
NN=R(2) 
GO  TO  4  5 
100  WRITE    (6,110)  R11,R12 

110    FORMAT    (/, IX,  'THERE  ARE  NO   REFERENCES   FOR  GROUP    ',12,'   SPECIES  ', 
1  13) 
9999  WRITE  (6,85) 

85  FORMAT    ( / , IX , 7 5 ( 1H * ) ) 

RETURN 
END 


SUBROUTINE  CNTROL (Ml) 

C    SUBROUTINE  THAT  ALLOWS  THE  USER  TO  SELECT  WHAT  TYPE  OF   INFORMATION  HE 

C    WANTS    (WITHIN  THE  LIMITATIONS  OF  THE  PROGRAM) 

COMMON/NDIR/NDR ( 5 , 750) 

COMMON/NAN /NRECN (11) ,NREC1 (11) ,NDll (11) ,ND22 (11) ,NSW,N2 

COMMON/NR8/R (8) 

COMMON/ESS1/S1 

COMMON/NR1/R1 

INTEGER  Rl 

INTEGER  R 

C    LIST  OF  VARIABLES  USED   IN  CNTROL  AND  THEIR  USES. 

C    NCNT   :   TOTAL  NO.   OF  ANIMALS   IN  ALL  GROUPS. 

C    N    :   NO.  OF  ANIMAL  FILE   (7 ,8 , 9 ,10 , AND  11). 

C    NRECl(ll)    :    NO.  OF  ANIMALS   IN  EACH  GROUP    (FILES  7-11). 

, C    Ml    :   VARIABLE  COMMON ED  WITH  MAIN   PROGRAM  TO  DETERMINE  TYPE  LIST 

C    USER  WANTS. 

C  ND1  ,  ND2    :   FILE  UPDATE  DATE   IN  FORM  MM/DDAY. 

C    NREC   :   NO.  OF  VEG.   TYPES,  KEY  HAB .    FAC.'S,  ETC.    IN  FILE. 

C    SI    :   VARIABLE  COMMONED  WITH  MAIN   PROGRAM  AND  LSTVT.  Sl=l=COMPLETE 

C    LIST  OF  VEG.   TYPES.      Sl=WHOLE  NO.    PORTION  OF  HIERARCHY  NO.  GIVES 

C    SECTION  OF  LIST. 

NCNT=0 

DO  1  N=7,ll 

READ    (N'1,2)  NRECl(N) 
2   FORMAT  (I5,75X) 

NCNT=NCNT+NREC1(N) 
1  CONTINUE 

GO  TO   (10,20,10,10,10,40,40,50,60,40,40) , Ml 

C    LIST  VEG.   TYPES,   KEY  HAB.   FAC.'S,   COUNTIES,  FORESTS 

C    M2=12=VEG.   TYPES     M2=13=KEY  HAB.   FAC . 'S  M2=16=COUNTIES 

C    M2=17=FORESTS 

10  M2=12 

IF    (M1.EQ.4)  M2=17 

IF    (M1.EQ.3)  M2=16 

IF    (M1.EQ.5)  M2=13 

READ   (M2'l,13)      NREC 12 ,ND 1  ,N  D2 
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13  FORMAT  (I6,2A4,67X) 

NREC=(NREC12-1) /31 

WRITE    (6,12)  NREC,M2,ND1,ND2 
12   FORMAT    (1H0,  'THERE  ARE    ',14,'   ITEMS   IN   FILE    ',12,'.   LAST  UPDATE  WA 
IS   :  ',2A4,/) 

IF    (M2.NE.12)    GO  TO  30 

WRITE  (6,31) 

31  FORMAT    (IX,  'ENTER  WHOLE  NO.   PORTION  OF  HIERARCHY  NO.  OF   SERIES  OF 
1VEG.    TYPES  TO  BE  LISTED.  ',/) 

READ   (5,32)  SI 

32  FORMAT  () 

30  CALL  LISTVT  (NREC12,M2) 
RETURN 
C    LIST  ANIMALS 

20  WRITE  (6,21) 

21  FORMAT    (1H0,  'ENTER  GROUP  NO.  ',/, 

1  10X,'l  =  AMPHIBIANS',/, 

2  10X,  '2  =  BIRDS',/, 

3  10X  ,  '3  =  FISH ' ,/, 

4  10X,'4  =  MAMMALS',/, 

5  10X  ,  '5   =   REPTILES  '  ,/) 

C    M2=1=AMPHIBIANS     M2=2=BIRDS     M2=3=FISH     M2=4=MAMMALS  M2=5=REPTILE 

READ   (5,22)  M2 
2  2   FORMAT    (  ) 
M2=M2+6 

C  NREC  =NO .   OF  ANIMALS   IN   FILE  NDl , ND2=UPDATE  DATE 

READ    (M2'l,23)    NREC ,ND 1  ,ND2 
2  3  FORMAT  (I5,2A4,67X) 

WRITE    (6,12)    NREC ,M2, NDl, ND2 
CALL  LSTSIG    ( NREC ,M2) 
RETURN 

C  LIST  ANIMALS   IN  V EG.   TYPE,   KEY  HAB.    FAC. ,   ETC.   BY  SELECTED  GROUP. 

40  M2=12 

IF    (M1.EQ.6)  M2=13 
IF    (Ml. EG. 10)  M2=16 
IF    (Ml.EQ.ll)  M2=17 
WRITE  (6,41) 

41  FORMAT    (1H0,  'ENTER  THE   INDEX  NO.    OF  FACTOR,   TYPE,   COUNTY  OR  FOREST 

1  AND  ANIMAL  GROUP  NO.',/) 

C  M3=VEG.    TYPE,    KEY  HAB.    FAC,    ETC.    INDEX  NO. 

C    R1=ANIMAL   GROUP  NO. 

READ   (5,22)  M3,Rl 

CALL  LSTSIV  (M3,M2) 

RETURN 

C    LIST  MANAGEMENT  INFO. 

50  WRITE  (6,53) 

53   FORMAT    (1H0,  'ENTER  GROUP  NO.   AND  SPECIES  NO.  ',/) 

C    M5,M6=GROUP  NO.   AND  SPECIES  NO. 

READ    (5,22)   M5 ,M6 

114  WRITE  (6,115) 

115  FORMAT    (IX,  'ENTER  NO.   OF  CODES  AND  CODE  NO.S   FROM  FOLLOWING  LIST  F 
10R  INFO.  NEEDED.',/, 

2  8X , 'CODES ',/, 10X,  '0  =   NONE  '  , / ,  10X  ,  'l   =   GENERAL  DISTRIBUTION',/ 

3  ,10X,'2   =   PROTECTION   STATUS  ' , / , 1 OX ,  '3   =  VEGETATION  TYPES',/, 

4  10X,'4   =   FOOD  HAblTS  '  ,/,10X , '5   =  COVER  REQUIREMENTS',/, 

5  10X,'6   =   KEY  HABITAT  F ACTO RS ' , / , 10X , '7   =  MANAGEMENT  PRACTICES', 

6  /,10X,  '8  =  ALL',/) 
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—  N=NO.   OF   CODES, (R(I) ,1=1,8) =CODES. 
READ   (5,22)    N , (R (I ) ,1=1 ,N) 

CALL   MNGING    (  N  ,M5  ,  M6  ,  NCN  T ) 
RETURN 

—  LIST  REFERENCES. 
60  WRITE  (6,53) 

—  Mil ,M12=GROUP  NO.   AND  SPECIES  NO. 
READ    (5,22)  Mll,Ml2 

CALL   MNREF    (M 1 1  ,Ml 2  ,N  CNT) 

RETURN 

END 
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Appendix  F 


Since  any  of  the  11  files  providing  data  for 
PROGRAM  RUN  WILD  may  be  unloaded, 
archived,  or  possibly  even  destroyed  com- 
pletely, depending  on  the  ability  of  the  user  to 
keep  his  files  accessible  on  a  given  system,  the 
user  should  consider  whether  he  wants  tape  files, 
which  he  can  load  into  the  disc  files  before 
running  PROGRAM  RUN  WILD,  or  disc  files, 
whose  status  he  may  have  to  check  before 
running.  If  RUN  WILD  isn't  going  to  be  used 
daily,  the  user  might  prefer  the  tape  file. 

The  user  wanting  to  create  an  element  on  a 
UNIVAC  1100  series  computer  that  would  load 
the  11  tape  files  to  11  disc  files  could  use  the 
attached  run  stream  to  create  the  element.  It 
would  assume  the  existence  of  he  11  filesontape 
and  in  the  order 


Sequence 

No.  on  Tape    Kile  No.  File  Name 


1 

12 

Vegetation  types 

2 

13 

Key  habitat  factors 

:i 

7 

Amphibians 

4 

8 

Birds 

5 

9 

Fish 

6 

10 

Mammals 

7 

11 

Reptiles 

8 

14 

Management  information 

9 

15 

Bibliographical  references 

10 

16 

Counties 

11 

17 

Forests 

The  element  called  Q*F  could  be  executed  by 
doing  an: 

@ADD  Q*F.ELT 
prior  to  running  PROGRAM  RUN  WILD.  The 
user  would  have  to  wait  until  the  execution  is 
complete  to  run  RUN  WILD.  In  any  case  if  the 
11  files  are  not  loaded  to  disc  the  program  will 
not  run. 


COMMENTS    (NOT  PART   OF  CARDS) 


@ASG,UP 
C"ED  ,  I 

MSCHAR 

/ASG ,T 
/USE 
/ASG  ,T 
/ASG  ,T 
/ ASG ,T 
/ASG , T 
/ASG  ,T 
/ASG ,T 
/ASG  ,T 
/ASG  ,T 
/ASG  ,T 
/ASG  ,T 
/ASG  ,T 
/COPY  ,G 
/COPY  ,G 
/COPY ,G 
/COPY ,G 
/COPY  ,G 
/COPY  ,G 
/COPY,G 
/COPY  ,G 
/COPY,G 
/COPY,G 
/COPY,G 
/FREE 
@EOF 


Q*F//WK. 
Q*  F. ELT 


TQ*TF .  ,20N  ,USER 

20. ,TQ*TF .   

12. ,F///256 
13. ,F///256 
7. 


9. 

10. 

11. 

14.  ,F///999 
15. ,F///999 
16 . ,F///256 
17. ,F///256 
20.  ,127 
20. ,13. 
20.  ,7. 
20.  ,8. 
20.  ,9  . 
20. ,10. 
20.  ,11. 
20.  ,14  . 
20.  ,15. 
20.  ,16. 
20.  ,17. 


NO. 


ASSIGN   &  CATALOGUE  A   FILE  TO   STORE  ELT 
USE  THE  EDITOR  TO  CREATE  Q*F . ELT 
BLANK  CARD 
USE  /  FOR  @ 
BLANK  CARD 

ASSIGN  TAPE  CONTAINING  RUNWILD  FILES 
USE  UNIT  NO.    20   FOR  TQ*TF. 


ASSIGN   DISK  SPACE   FOR  RUNWILD  FILES 


COPY  THE   RUNWILD   FILES   FROM  TAPE  TO  DISK 


RECORDS  WITH   SLASHES   MAKE   UP  Q*F  .  ELT 
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